COMMODORE 


64/128 
POWER 
BASIC 





More than two dozen powertul utilities ana 


programs, s, wiitten In BASIC, for the 
nmodore 64 and 128. 





COMMODORE 


64/128 
POWER 
BASIC 








COMPUTE! Publications,Inc. 


Part of ABC Consumer Magazines _ INC 


One of the ABC Publishing Companies 


Greensboro, North Carolina 


The following articles were originally published in COMPUTE!’s Gazette magazine, copyright 1984, 
COMPUTE! Publications, Inc.: 

“Auto Line Numbering” (February); ‘“ASCII/POKE Printer’ (March); ““Numeric Keypad” (April); 
“Step Lister’ (May); ‘String Search” (August); “Screen Headliner’ (September); ‘Hi-Res Screen 
Dump” (October); ‘““Slowpoke” (November); ‘““Time Clock’’ (December). 


The following articles were originally published in COMPUTE!’s Gazette magazine, copyright 1985, 
COMPUTE! Publications, Inc.: 

“Stop and Go” (January); ‘“Color Swap” (February); “Quick Character Transfer’’ (March); ‘’Triple 
64” (April); ‘Searchlight’ (May); “Tape Program Rescue” (June); “Disk Title Changer” (July); 
“QuickScan’’ (September); ‘“USR Joystick Reader” (October); “Screen Customizer’’ (November); 
“List Pager’’ (December). 


The following articles were originally published in COMPUTE!’s Gazette magazine, copyright 1986, 
COMPUTE! Publications, Inc.: 

“The Printmaker” (January); ‘““Blink Mode on Commodore Machines” (February); ‘‘Keyboard to 
Joystick Converter’ (March); “Input Windows” (April); ‘“Blick’’ (May); ‘‘Help Screens” (June); “64 
RAM Disk” (July); ‘BASIC Line Extender’ (August); ‘Sound Off” (September); “Line Count’ (Oc- 
tober); “Instant Keywords’’ (November); ‘Program Mis-Matcher’’ (December). 


Copyright 1987, COMPUTE! Publications, Inc. All rights reserved. 


Reproduction or translation of any part of this work beyond that permitted by 
Sections 107 and 108 of the United States Copyright Act without the permission of 
the copyright owner is unlawful. 


Printed in the United States of America 
10987654321 
ISBN 0-87455-099-8 


The authors and publisher have made every effort in the preparation of this book to insure the ac- 
curacy of the programs and information. However, the information and programs in this book are 
sold without warranty, either express or implied. Neither the authors nor COMPUTE! Publica- 
tions, Inc., will be liable for any damages caused or alleged to be caused directly, indirectly, inci- 
dentally, or consequentially by the programs or information in this book. 


The opinions expressed in this book are solely those of the authors and are not necessarily those 
of COMPUTE! Publications, Inc. 


COMPUTE! Publications, Inc., Post Office Box 5406, Greensboro, NC 27403, (919) 
275-9809, is part of ABC Consumer Magazines, Inc., one of the ABC Publishing Com- 
panies, and is not associated with any manufacturer of personal computers. Commo- 
dore 64 and Commodore 128 are trademarks of Commodore Electronics Limited. 


Contents 





POREWONG? Alok ot a ert ance iG fad Sure eae a eee eh Vv 
Chapter 1. BASIC Programming Utilities ............ 1 
Program Mis-Matcher 

Marke JOVGGn. seh eaeis head eae ERR a cabs € GA Oe ESE he 3 
Instant Keywords 

SHAWN COMIN. oie Ste eee 4 Sad Penge te ede Rati aed 6 
Line Count 

Kenneth | ROCCiSON, 4.0 sake. ob ou ea ae ea he ee Bega A 9 
Sound Off 

POMEIMAGTE, cee oe BES GENS Kee Cela ek eases 14 
BASIC Line Extender 

TAU SIR COU Gy hie exit oiler erat a enter ease oa os Peed ee ec a 16 
Searchlight 

KG CNC MUONS: tat Mischa sete REG a eh Cece eee eS RE es 20 
Triple 64 

FeCCHa NG a canard he ae ahaa eee eet eek 23 
String Search 

Glen - COWerE stew yu eee Ae a baa Tee ee etn, ys 25 
Step Lister 

EA COMTI. aia cre enh & e.bravats & Suen tone, wangnds ant Cobo de oe gee, 8 29 
ASCIT/POKE Printer 

TOGA TACUMGICK : h3 Sh gg BR ed EOS CREO UREA O27 
Auto Line Numbering 

TCTs NOUNS tas ra inh sae P ante oho hr Send hese ate, tial MO ace Vite ean heh & 35 
Chapter 2. Screen Control .....................05. 37 
Help Screens 

JOUCl SIAQIGUL axon dee ee HhaeeG ati daak eds Pe eneeees 39 
Blick 

PlUMINeh TACNSL OY ite i 8 vetoes Ghee as Wl gs ee We BR ap Rc es 45 
Input Windows 

TROMPCANOMUSON: 6 Six as TNS ee a be eRe Te ae ee 48 
Blink Mode on Commodore Machines 

DAVIE SUNNEN since Giese GR pe ee ee he Be erie ate ee 54 
The Printmaker 

Manu Gani 6 .3648ae By gee a tehe4, 6 Ga ete 64 
Screen Customizer 

Christian ENcis .vee aw eit Oa ba ee ee Sake hes 67 


QuickScan 

DAR DCR sc meskes ee ot a Sheets DS Satan ee eae ete a 70 
Quick Character Transfer 

ADIOS COLONIC) :ak ape cee GS, eed Raley Sol ee eae Dos BAe 72 
Color Swap 

POC NOG GI ing. tbr tee we tle eck ae Sk eg toe ese eed 75 
Time Clock 

DOIG WO INMOTENT. secede ie pase ee ad oie Aaa, Gea Oe 82 
Slowpoke 

DGNteL RE WIAYONG: wien ines wee Gate oie Gave we BORE Bde eit we 85 
Hi-Res Screen Dump 

SreQe Peele: ace. sands A ncane egies ost Gavin td ona Rahs 89 
Screen Headliner 

TOGA HCUNATCK. 2 dap do reat eases Se eR ee eA RRS 93 
Chapter 3. Input/Output Routines ................. 99 
64 RAM Disk 

MIAN GCIO MOOTE 6. wt. atau tisk He ar Earle aaa Bm Rae 101 
Keyboard to Joystick Converter 

DQOIA- As TIUNIe cpide danske Se Goigsth- oh, tii Sk Uhre, Rebates BA ac a Ae 104 
List Pager 

ROVCHE A SLOCTIO: hod ee fark ihct and Bie ae Sh eae RA wads 109 
USR Joystick Reader 

TAU GONCINC: ss. i Ste, et Sas BA eS AES Aa Ae Rg as 114 
Disk Title Changer 

Michel Broussard? :3-d:0 i xce ndalta gree ata aoe we GR Ne A GE adem 8 117 
Tape Program Rescue 

JONG: AGMpION ie ecohen Bee Ay et Pte a eee Ue 122 
Stop and Go 

EDGE CASO. sictsncrg tit rks Git acne perk Spo ec tet ota taces ada has GLa 124 
Numeric Keypad 

Charles: Kivevrel aucue tetas ide bi Eee eee A eee ee 126 
APPeNdICeS 2.5.5. c eb eee ce eee bebe eee ae once es 129 
A. How to Type In Programs ...................004. 131 
B. The Automatic Proofreader / Philip I. Nelson ......... 133 
C. Screen Location Table ......... 0.0... cee eee eee 136 
D. Screen Color Memory Table ..................005. 137 
E. 40-Column Screen Color Codes .................. 138 
F, Standard ASCII Codes ......... ccc cece ee eee 139 
G5, DETCENLC OGES! fase n bb pay pe eeia a ee Bee 142 
H. Commodore 64 and 128 Keycodes ................ 147 
INGEN: aah aerate cate etes An eed a wceca Ane 151 
Disk: COUPON: ~cvacweh cane G Obese ee es peered 153 


Foreword 





COMPUTE! Publications has been publishing time-saving util- 
ities for Commodore machines for years. Now, the best 
routines for the 64 and 128 home computers have been col- 
lected together in Commodore 64/128 Power BASIC. The 32 
programs included here perform an amazing number of tasks 
that will become an indispensable part of your programming 
repertoire. 

Divided into three sections, Commodore 64/128 Power 
BASIC includes BASIC programming utilities, screen-control 
utilities, and input/output routines. You'll find programs that 
perform a variety of tasks, including one that switches text 
characters between two different colors at varying speeds. An- 
other program, ‘“‘Slowpoke,” enables you to control the speed 
of the PRINT statement—it’s good for slowing down program 
listings and for debugging screen graphics. ‘“Auto Line Num- 
bering” is a handy utility that automatically generates a line 
number for the current BASIC program statement being en- 
tered. It begins with line 100 and increments by 10’s, or you 
can modify it to suit your needs. 

Although the Commodore’s operating system does not di- 
rectly support a RAM disk, ‘64 RAM Disk” gives you one. It 
makes 8K available for program storage, and you have almost 
instant access to the information stored there—without having 
to wait for data to be loaded from or saved to an external stor- 
age device. It’s an excellent program-development tool. 

These programs and many others make Commodore 64/128 
Power BASIC a book you'll keep at your side as you’re pro- 
gramming. You'll find numerous uses for these routines 
whether you're already an expert programmer or are just start- 
ing out. The appendices contain a wealth of supplementary 
material, including ASCII codes, a screen location table, and 
screen color codes. 

Written in the clear, easy-to-understand style that COM- 
PUTE!s publications are known for, Commodore 64/128 Power 
BASIC is packed solid with programs that you'll wonder how 
you ever did without. 


vi 


All the programs in Commodore 64/128 Power BASIC are 
ready to type in and run. However, if you prefer, you can 


purchase a disk that includes all the programs in the 
book. Call toll-free 1-800-346-6767 (in New York, 1-212- 
887-8496). Or use the coupon in the back of the book. 
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Program Mis-Matcher 





Mark Jordan 


Programmers will appreciate this handy utility that com- 
pares two BASIC programs. Output is to screen or printer. 
Requires a disk drive. For the Commodore 64 and 128. 


It happens frequently when you are programming: You want 
to know exactly how the program you’re working on differs 
from a previously saved version. Or maybe you have two ver- 
sions and you're not sure which one to load because you can’t 
remember which is more recent—GAME2 or GAMEB. Maybe 
you’ve been doing some experimenting with an old program 
and like some of the changes you’ve made, but not others. 
Wouldn’t it be helpful to compare the experimental version 
with the previous one to see which lines have been altered or 
added? “Program Mis-Matcher” helps out in situations like 
these. It compares two BASIC programs saved on disk. 


Comparing 

To use the program, type it and save it on disk. When you run 
the program, it asks for the names of two files. Type in the 
program names, pressing RETURN after each one. Mis- 
Matcher will stop if it can’t find the files on disk. The program 
then asks whether you want a listing of the differences to go 
to the printer. Press N to send the output to the screen only. 
The program assumes that the printer is connected as device 
4. You'll need to change line 80 if you use some other 
configuration. 

Commodore 128 owners can use the 64 version. The pro- 
gram must be run in Commodore 64 mode, but it can be used 
to compare both BASIC 2.0 (Commodore 64) and BASIC 7.0 
(Commodore 128) programs. One special restriction applies to 
comparing 128 programs if you have a 1571 disk drive: Both 
of the programs being compared must be on the front side of 
the disk. When used in conjunction with 128 mode, the 1571 
can store data on both sides of the disk. Mis-Matcher will fail 
if either or both of the program files to be tested are on the 
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second side. If they are, save both programs on a disk format- 
ted while the drive is in 1541 mode (as when the computer is 
set for 64 mode). You can then use Mis-Matcher. 

There are two ways in which one program may differ 
from another. First, one might have a line that’s missing in the 
other. Second, the programs might have lines with the same 
line number which are not identical. Mis-Matcher recognizes 
and reports both kinds of differences. 

Some assemblers, including the popular PAL for the 64, 
use the BASIC editor to enter source code. For such assem- 
blers, Mis-Matcher can be used to compare two source-code 
files, so machine language programmers can also benefit from 
this tool. 


64/128 Program Mis-Matcher 


For mistake-proof program entry, use “The Automatic Proofreader,”’ Appendix B, to type in 
this program. 


KJ 18 SA=49152:CS=19600:FR=251:PRINT"{CLR}{wHT}" 
SM 20 FORT=SATOSA+65 : READA: X=X+A: POKET,A:NEXT 
JH 38 IFX<>CSTHENPRINT"ERROR IN DATA STATEMENTS.": 
STOP 
GG 48 PRINTCHRS (14) 
CA 5@ INPUT"NAME OF FIRST PROGRAM ";F1$S:INPUT"NAME 
OF SECOND PROGRAM";F2S - 
RB 68 PRINT" {CLR}OUTPUT TO PRINTER?{2 SPACES}Y/N" 
EQ 76 GET SPS:IFSPS=""" THEN7@ 
GX 8@ IFSPS="Y"THEN OPEN 4,4,7:PRINT#4, "COMPARING 
{SPACE}"F1S" TO "F2S".":PRINT#4 
RH 98 JS="{28 SPACES}{20 LEFT}" 
AK 188 OPEN 2,8,2,F1S$:0PEN 3,8,3,F2$:GOSUB65@ 
EG 118 FORT=1TO2:GET#2,AS:GET#3,BS$:NEXT: REM 
{2 SPACES}THROW AWAY FIRST 2 BYTES 
KB 128 FORT=1T02:GET#2,AS:GET#3,BS:NEXT:REM 
{2 SPACES}THROW AWAY LINE LINKS 
JE 138 A=@:IFAS<>""THENA=ASC(AS) 
AA 148 B=@:IFBS<>""THENB=ASC(BS) 
EQ 158 IF A=@ AND B=8 THEN390 
BX 160 IFA=0THENLA=64908 :GOTO18@ 
PG 178 GOSUB488:REM GET LINE NUMBER 
DG 180 IFB=@THENLB=64088 :GOTO282 
AH 198 GOSUB52@:REM GET LINE NUMBER 
JB 20@ IFLA<>LB THEN GOSUB32@:REM{2 SPACES}CHECK F 
OR DIFFERENT LINE # 
XF 218 IFLA=64900GANDLB=64900 THEN 390 
BA 228 PRINT"CHECKING LINE"LA:PRINT"{UP}"; 
RF 238 SYS SA 
SF 240 IF PEEK(FR+1)=0 THEN129 
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PRINT J$ "LINES"LA"DO NOT AGREE." 

IF SPS$<>"Y" THEN1290 

IF TG=l1 THEN PRINT#4 

TG=0 :PRINT#4,"LINES"LA"DO NOT AGREE." 
GOTO12@ 

CLOSE2 : CLOSE3 : CLOSE4: END 

REM --{37 SPACES}EXTRA LINE 

IF LA>=LB THEN390 

PRINT JS"LINE"LA"IN {RVS} "F1S" {OFF} NOT I 
N {RVS} "F2S"." 

IF SPS="Y" AND TG=8 THEN PRINT#4 

TG=1:IF SPS="Y" THEN PRINT#4,"LINE"LA"IN "F 
1$" NOT IN "F2S"." = 

POKE FR,2:SYS SA+55 

GET#2,A1$:GET#2,A2S:IF AlS="""AND A2S="" TH 
EN LA=64008 : GOTO328 

GOSUB48@ :GOTO328:REM GET NEW LINE # 

IF LB>=LA THEN460 

PRINT J$"LINE"LB"IN {RVS} "F2$" {OFF} NOT I 
N {RVS} "F1s"." 

IF SPS="Y" AND TG=@ THEN PRINT#4 

TG=1:IF SP$="Y" THEN PRINT#4,"LINE"LB"IN "F 
2S" NOT IN "F1S"." 

POKE FR,3:SYS SA+55 
GET#3,B1S$S:GET#3,B2$S:IFB1S=""ANDB2S=""THENLB 
=64908 : GOTO322 

GOSUB52@ :GOTO32@ 

RETURN 

REM -- GET LINE NUMBERS 

GET#2,A1$:GET#2,A2$ 
Al=@:IFA1S<>""THENA1=ASC(A1$) 

A2=@ : IFA2$<>""THENA2=ASC(A2S) 
LA=A2*256+A1 : RETURN 

GET#3,B1$:GET#3,B2S 
Bl=@0:IFB1$<>""THENB1=ASC(B1$) 

B2=0: IFB2$<>""THENB2=ASC (B2$ ) 

LB=B2* 256+B1: RETURN 

DATA 169,8,133,252,162,2,32,198 

DATA 255,160,255, 200, 32,207,255, 248 

DATA 6,153,66,192,76,11,192,132 

DATA 251,162,3,32,198, 255,168,255 

DATA 208,32,207,255,240,18,217,66 

DATA 192,240,245,2308,252,76,32,192 

DATA 196,251,248,2,230,252,96,166 

DATA 251,32,198,255,32,207,255, 288 

DATA 251,96 

OPEN15,8,15:INPUT#15,A,BS$,C,D: IFATHENPRINTA 
,BS,C,D:STOP 

RETURN 


Instant Keywords 





Shawn K. Smith 


Save time and typing effort with this short utility for the 
Commodore 128. Up to 52 keywords can be entered—each 
an easy-to-remember, two-key combination. 


“Instant Keywords” can drastically reduce the time it takes 
you to type in a program. This utility prints a BASIC 7.0 key- 
word when the Commodore or SHIFT key is pressed in con- 
junction with a letter key. For instance, pressing the SHIFT 
and L keys displays the keyword LOOP. A total of 52 key- 
words can be displayed in this fashion. Refer to the table be- 
low for a list of the key combinations. Also, pressing the 
SHIFT or Commodore key while in quote mode displays the 
standard graphics characters rather than a BASIC keyword. 

Instant Keywords is short and easy to use. Although it 
contains mostly machine language (ML), you don’t have to 
know any ML to use it. In fact, you can just type it in and run 
it as a BASIC program. First, type in the program and then 
save a copy. When you run it, the BASIC loader stores the ML 
in an area of RAM which is determined by the value S in line 
100 (changing the value of S will relocate the utility). Once 
the data has been stored in RAM, the utility is activated, the 
address to deactivate/reactivate it is displayed, and the loader 
is erased from memory. Pressing RUN/STOP and RESTORE 
is another way to deactivate the program. 


Modifying the Program 

You may want to rearrange the utility to support a different 
set of keywords. This can be accomplished with minor 
changes to the utility. But, first, a quick background note 
about keywords is in order. BASIC 7.0 contains 130+ com- 
mands or keywords. Most of the keywords (including all of 
the keywords in the 64’s BASIC 2.0) are represented by one- 
byte tokens. For instance, the command PRINT is stored in the 
computer with a token value of $99 (153 decimal). Because the 
128 has a larger vocabulary, the designers of the 128 decided 
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to use two-byte tokens to represent some of the new com- 
mands. All the new two-byte commands use $CE or $FE as 
the first byte of the token. Instant Keywords will allow you to 
use any keyword except ones that begin with $CE as the first 
token value. (This eliminates the use of only eight keywords.) 


Key Combinations 


SHIFT Commodore 
SLEEP STR$ 
BEGIN BEND 
CHR$ COLOR 
DOPEN DCLOSE 
ELSE ENVELOPE 
FOR FILTER 
GOTO GOSUB 
HEX$ DEC 
INPUT INSTR 

JOY PLAY 
DRAW CHAR 
LOOP LOCATE 
MID$ MOVSPR 
NEXT COLLISION 
TAB( SPC( 
PRINT PAINT 
GSHAPE SSHAPE 
RETURN RESTORE 
SPRITE SOUND 
THEN TEMPO 
USING UNTIL 
READ DATA 
WHILE WINDOW 
POKE PEEK 
GRAPHIC CIRCLE 
LEFT$ RIGHT$ 


A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
O 
P 
Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 





The last 52 hexadecimal values in the loader (beginning 
with OB in line 200) are the token values of the keywords dis- 
played by Instant Keywords. The first 26 hex values are for 
the SHIFT key. (The token for SHIFT-A is the first, and the 
token for SHIFT-Z is the twenty-sixth.) The last 26 values are 
for the Commodore key. If you plan to add tokens for any 
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two-byte commands, leave off the first byte (SFE)—the pro- 
gram knows that it is a two-byte command and will adjust it- 
self accordingly. If you’re unsure of the token value of any 
keyword, type in this program: 


GA 18 GOTO39 

EF 20 REM ** PLACE KEYWORD HERE ** 

HS 38 BANK15:B=PEEK(45 )+12+PEEK(46)*256:PRINT "KEY 
WORD VALUE(S) = "; 

BD 48 H=PEEK(B):PRINTRIGHTS(HEXS$(H),2);" "3; 

AE 5@ IFH=2540ORH=296 THENB=B+t1 : GOTO4@ 


In line 20, type the keyword for which you want to find 
the token value. Run the program, and it will display the 
token value for the keyword you've inserted. 


Instant Keywords 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


AE 198 PRINT"{CLR}":S=DEC("1388" ) :BANK15:FORD=STOS 
+176:READ AS:POKE D,DEC(AS):NEXT 

HB 118 M=S+22:V%=M/256 : V=M-—256*V%:POKE S+12,V%:POK 
E S+14,V:M=D—-52 : V%=M/ 256 : V=M—-256*V% 

FM 128 POKE S+65,V%:POKE S+64,V: SYS(S):PRINT" 
{2 DOWN} {RVS}{WHT}INSTANT KEYWORDS ACTIVATE 
D1! 

RK 138 PRINT" {DOWN} {RVS}TO DE/ACTIVATE SYS"S:NEW 

JG 148 DATA A9,C8,CD,37,03,F0,04,A2,05,D0,04,A9,13 
,A2,16,8D,37,93,8E, 36 

KE 158 DATA 93,60,EA,48,A6,F4,F0,94,68,4C,95,C8,A4 
,D4,AD, 3E,93,85,24,AD 

AR 168 DATA 3F,03,85,25,Bl,24,EA, 38,E9,41 

QA 178 DATA C9,1A,B8,E6,A2,02,E4,D3,D0,02,69,19,A8 
,B9,7D,13,C9,27,B9,99 

EE 188 DATA 69,7E,AA,A@,09,A9,46,D0,05,AA,A9,17,A9 
, 44,84, 24,85,25,AG, 82 

MK 198 DATA CA,10,0F,B1,24,48,E6,24,D0,02,E6, 25,68 
,10,F4,30,EF,C8,Bl,24 

BH 208 DATA 30,05,20,0C,56,D0,F6,29,7F,28,0C, 56,68 
,60,EA,9B,18,C7,@8D,D5 

KA 218 DATA 81,89,D2,85,CF,E5,EC,CA,82,A3,99,E3,8E 
,O7,A7,FB,87,FD,97,DE 

QD 228 DATA C8,C4,19,E7,0F,0A,93,8D,D1,D4,04,E0,E6 
,06,17,A6,DF,E4,8C,DA 

KQ 238 DATA @5,FC,83,1A,C2,E2,C9 
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Line Count 





Kenneth J. Rogerson 


A boon to programmers, “Line Count” helps increase the 
speed of BASIC programs by reporting which lines are exe- 
cuted most often so that your efforts may be concentrated 
where they will be most effective. Although it’s written in 
machine language, you don’t need to know any machine 
language to use it. For the Commodore 64 and 128. 


“Line Count” is a program I had waited a long time for some- 
one else to write. I finally learned enough machine language 
to write it myself, however, and to make it as useful and effi- 
cient as possible. Line Count is a utility that reports which 
lines are executed most often in a BASIC program. With this 
information, you can target inefficient or redundant areas of 
code that slow down the program. 


Typing It In 

Type in the version appropriate for your computer: Program 1 
for the 64, Program 2 for the 128. Each of the programs has a 
checksum feature in line 20 that will detect typing errors in 
the DATA section. It’s also recommended that you use “The 
Automatic Proofreader,’”” found in Appendix B. 

After you’ve finished typing in the program, save a copy 
to disk or tape. To use it, load it and type RUN. If you’ve en- 
tered the program correctly, the machine language will be 
POKEd into memory (locations 49152-49663 on the 64 and 
3072-3517 on the 128). 

After you’ve loaded and run Line Count, load the BASIC 
program you want Line Count to check. Before running your 
program, enter SYS 49155 (64 version) or SYS 3075 (128 ver- 
sion) in direct mode, and press RETURN. This activates Line 
Count. In a moment the READY prompt and cursor will reap- 
pear. Now run your BASIC program. When it has finished 
running—or if it stops for any reason—you can then get a re- 
port from Line Count. To do this, enter in direct mode SYS 
49152 (64 version) or SYS 3072 (128 version), and press RE- 
TURN. Line Count will list the line numbers that your BASIC 
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program executed, followed by a number indicating how 
many times each line was executed. 

Since each section of Line Count reinitializes itself when 
activated, you can check several programs in succession with- 
out having to rerun Line Count. Simply load and run each 
program to be checked, remembering to activate Line Count 
with the appropriate SYS and to generate the report with the 
other SYS listed above. 


Features and Limitations 

Because it adds its own routine to the normal functions of 
BASIC, Line Count causes your program to run more slowly 
than usual. Line Count cannot keep track of more than 896 
lines. If your program is longer, Line Count will record only 
the first 896 lines. And Line Count can count up to 65535. If a 
line is executed more times than that, Line Count will stop 
your program with an error message. Also note that Line 
Count may not work with other cartridges or utilities. 

The program will not work reliably if either of the SYS 
commands (used to activate or generate a report) is used 
within a program. Use Line Count’s SYS commands only in 
direct mode. 

How your program is numbered or how many commands 
are on each of your program lines is not important. 

If a program runs without Line Count resident, it will run 
with Line Count, unless your BASIC program uses any of the 
following locations: 


64 128 
Version Version 
49152-53247 3072-3517 
251-254 251-254 
776-777 776-777 


If your BASIC program contains DATA statements, how 
they are counted will depend on where they are placed. 
DATA statements at the end of your program, which are not 
referenced by a GOTO or GOSUB and are preceded by END 
or STOP, will not be counted, no matter how often the DATA 
is read. If your program contains DATA statements placed in 
the normal flow of the program, and therefore scanned by the 
BASIC interpreter, they will be counted once each time they 
are scanned no matter how often the DATA is read. 
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You may notice strange results when a FOR-NEXT loop is 
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split between two or more lines. The explanation is simple. 
Assume that the program below is being checked and that 
there are no other lines in the program. Because there are no 
commands on line 100 after the FOR-TO portion of the loop, 
this line will be counted once, while lines 110 and 120 will be 


counted 100 times. This will occur in your programs in similar 


circumstances. If there is a command or statement on the same 
line after the FOR-TO command, the line will be counted the 
number of times that the loop itself is executed—in this case, 
100 times. 


100 FOR X=1 TO 100 
110 REM 
120 NEXT X 


Program 1. Line Count—64 Version 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 
this program. 


MS 
PH 
MJ 
MM 
MS 
JC 
PP 
MB 
KF 
GP 
JQ 
EK 
XH 
CP 


HD 


AF 


180 


110 


120 


130 


149 


150 


162 


FORA=49152T049539: READB: POKEA, B:C=C+B:NEXT 
IFC<>51719THENPRINT"{CLR}DATA ERROR":STOP 
PRINT "{CLR}{2 DOWN} {WHT}SYS 49155: TO INITI 
ALIZE":PRINT "{DOWN}SYS 49152: FOR A REPORT" 
DATA 76,13,193,32,41,192,162,14,168,%8,169,25 
5,145,251,136, 298,251,238, 252 
DATA 202,208, 246,169,58,141,8,3,169,192,141, 
9,3,169,255,141,129,193,141 
DATA 138,193,96,169,8,133,251,169,194,133,25 
2,96,32,41,192,165,58,281,255 
DATA 248,98,205,138,193,208,7,165,57,205,129 
,193,248,86,168,1,185,57,@ 
DATA 153,129,193,136,16,247,168,8,177,251,2@ 
@,49,251,2801,255,2088,17,165,58 
DATA 145,251,136,165,57,145, 251, 32,168,192, 3 
2,168,192,208,47,168,8,177,251 
DATA 217,57,8,208,32,200,192,2,208,244,32,1 
68,192,208, 28,32,88,193,169 
DATA 99,168,193,32,308,171,166,57,165,58, 32, 
205,189,162,128,198,8,3,32 
DATA 64,193,76,82,192,76,228,167,168,2,177, 
251,24,185,1,145,251,208,7 
DATA 208,177,251,105,9,145,251,96,169,8,141 
,131,193,32,41,192,168,8,177 
DATA 251,208,49,251,201,255,248,65,168,1,17 
7,251,153,129,193,136,16,248,160 
DATA 4,177,251,56,237,129,193,208,177,251,2 
37,138,193,176,33,169,1,141,131 
DATA 193,160,7,177,251,72,136,16,258,168,4, 
194,145,251, 208,192,8,208, 248 
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KA 


EM 


AP 


179 


180 


196 


28 


219 


220 


230 


246 


CHAPTER 1 


DATA 168,0,194,145,251,200,192,4, 208,248, 32 
,64,193,76,187,192,173,131,193 

DATA 208,167,96,32,179,192,32,41,192,169,13 
,32,219,255,160,80,177,251,17@ 

DATA 209,49,251,201,255,248,25,177,251,32,7 
8,193,169,58,32,218,255, 208,177 

DATA 251,178,208,177,251,32,78,193,32,64,19 
3,208,214,76,88,193,165,251, 24 

DATA 105,4,133,251,165,252,105,90,133,252,96 
,140,131,193,32,205,189,172,131 

DATA 193,96,169,228,141,8,3,169,167,141,9,3 
,96,13,84,79,79,32,77 

DATA 65,78,89,32,69,88,69,67,85,84,73,79,78 
,83,32,79,70,32,76 

DATA 73,/78,69,32,0,0,9,8 


Program 2. Line Count—128 Version 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 


this program. 


99 


189 


110 


120 


139 


149 


159 


169 


FORA=3072T03517:READB: POKEA, B: C=C+B:NEXT 
IFC<>53196THENPRINT"{CLR}DATA ERROR":STOP 
PRINT "{CLR} {WHT}{2 DOWN}SYS 3875: TO INITIA 
LIZE":PRINT "{DOWN}SYS 3872: FOR A REPORT" 
DATA 76,63,13,169,48,141,8,255,32,56,12,162, 
14,168,8,169, 255,145,251 
DATA 136,208,251,230, 252,202,208, 246,169,65, 
141,8,3,169,12,141,9,3,169 
DATA 255,141,187,13,141,188,13,169,248,141,1 
9,18,169,8,141,9,255,96,169 
DATA 8,133,251,169, 249,133,252,96,169,48,141 
,2,255,32,56,12,165,60, 281 
DATA 255, 248,18,205,188,13,208,7,165,59,285, 
187,13,248,116,168,1,185,59 
DATA 8,153,187,13,136,16,247,160,8,177,251,2 
G@B,49,251,201,255,208,17,165 
DATA 68,145,251,136,165,59,145,251,32,218,1 
2,32,218,12,208,77,168,8,177 
DATA 251,217,59,8,208,62,208,192,2,208,244, 
32,218,12,208,58, 32,155,13 
DATA 169,159,1680,12,32,125,255,13,84,79,79, 
32,77,65, 78,89, 32,69,88 
DATA 69,67,85,84,73,79,78,83,32,19,70,32,76 
,73,78,69,32,8,166 
DATA 59,165,68,32,133,13,162,128,108,2,3, 32 
,119,13,76,102,12,76,162 
DATA 74,160,2,177,251,24,185,1,145,251, 288, 
7,208,177,251,185,8,145,251 
DATA 96,169,0,141,189,13,32,56,12,168,8,177 
,251,208,49, 251,281,255, 2408 








Sarena B® 


SX 


170 
189 
199 
200 
219 
220 
230 
240 
258 
260 


270 


BASIC PROGRAMMING UTILITIES 


DATA 65,169,1,177,251,153,187,13,136,16, 248 
,168,4,177,251,56,237,187,13 

DATA 209,177,251,237,188,13,176,33,169,1,14 
1,189,13,169,7,177,251,72,136 

DATA 16,259,168,4,194,145,251,298,192,8,298 
,248,1609,9,194,145,251, 289,192 

DATA 4,208,248, 32,119,13,76,237,12,173,189, 
13,208,167,96,169,48,141,9@ 

DATA 255,32,229,12,32,56,12,169,13,32,171,1 
3,169,8,177,251,178,288,49 

DATA 251,201,255, 249, 25,177,251, 32,133,13,1 
69,58,32,171,13,208,177,251,1798 

DATA 299,177, 251,32,133,13,32,119,13, 298, 21 
4,76,155,13,165,251,24,185,4 

DATA 133,251,165,252,195,8,133,252,96,149,1 
89,13,72,169,9,141,9,255,184 

DATA 32,58,142,169,48,141,98,255,172,189,13, 
96,169,162,141,8,3,169,74 

DATA 141,9,3,169,9,141,8,255,96,72,169,0,14 
1,0,255,194,32,2198,255 

DATA 169,48,141,8,255,96,8,0,98 
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Sound Off 


John Martin 


The Commodore 64 is usually accommodating when it 
comes to alerting you to errors. But when you’re working 
with hi-res screens or custom characters, error messages 
can be invisible or unreadable. This short machine 
language program is the answer. For the Commodore 64 
and 128 in 64 mode. 





We've all seen error messages on our screens. As unwelcome 
as they may be, they’re helpful in pointing to the type of 
problem or mistake in the program. In some cases, however, 
an error message will not appear—for example, when a high- 
resolution screen is displayed. Or, if you've redefined the 
character set, the error message will print, but won’t be read- 
able. Any number of hidden errors can cause a program to 
stop during setup—with no error message. 

‘Sound Off” provides a solution. It’s a short machine lan- 
guage routine that creates a bell-like tone and prints an error 
message when an error is encountered. It works in both pro- 
gram and direct mode. And it is not disabled by the RUN/ 
STOP-RESTORE key combination. The only way to disable it 
is to reset the computer by typing SYS 64738 or by turning 
the computer off and then on again. Each of these methods 
erases the program currently in memory, so be sure to save 
the program before resetting the computer. 

Note to 128 users: To simulate the effects of Sound Off in 
128 mode, use the TRAP statement to enable an error-handling 
routine. Within that routine, you could use GRAPHICO to turn 
off the hi-res screen and SOUND to create a beep. A machine 
language routine such as Sound Off provides is not necessary 
on the 128; you can trap errors with BASIC alone. 


Using the Program 

After you have typed in the program, be sure to save a copy. 
To use Sound Off, just load it and type RUN. The machine 
language data is POKEd into a safe area of memory (53047- 
53171), and the program is activated. Note that any programs 
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or cartridges that use memory addresses 53047-53171 will dis- 
able Sound Off. However, the 64 Super Expander cartridge 
will not interfere. 


Sound Off 


For mistake-proof program entry, use ‘The Automatic Proofreader,”’ Appendix B, to type in 
this program. 


RJ 


FE 


12 
22 
30 
4G 
52 
60 
72 
80 


998 


FORA=53847T053171:READB:C=C+B: POKEA, B:NEXT 
IFC<>13412THENPRINT"DATA ERROR":STOP 

PRINT" {CLR}{2 DOWN}SYS 53161 TO ACTIVATE" 
DATA 169,0,162,212,141,253,8,142,254,8,168,0 
,169,8,145,253 

DATA 152,201,23,240,7,24,1805,1,168,76,67,207 
,169,15,141,24 

DATA 212,169,9,141,5,212,169,247,141,6,212,1 
69,17,141,4,212 

DATA 169,40,141,1,212,169,9,141,98,212,169,9, 
141,160,8,141 

DATA 161,9,141,162,8,173,162,9, 201,18, 248,3, 
76,124, 287,169 

DATA 16,141,4,212,96,141,69,3,142,61,3,148,6 
2,3,138,201,31,176,3,32,55 


196 DATA 207,173,68,3,174,61,3,172,62,3,76,139, 


227,169,148,141 


118 DATA @,3,169,207,141,1,3,96 
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BASIC Line Extender 


Jay A. Reeve 





This short but powerful utility gracefully removes Commo- 
dore’s “two screen lines only” programming restriction. For 
the Commodore 64 and 128 in 64 mode. 


How often have you hit the two-line squeeze while program- 
ming? Your BASIC statement won't quite fit into what’s left of 
the two lines allowed by the Commodore screen editor. You 
go back and change full keywords to abbreviations—it still 
doesn’t fit. You could simply move the last statement to the 
next line, except it follows an IF-THEN statement. 

Next, you replace the statement with GOTO and guess at 
a line number that you hope won't be in the way later on. 
Then you retype the statement on the new line (how did that 
go again?) and try to recall the logic you were using for the 
program. You're left with a feeling that your program has just 
lost a little of its elegance. 


Ending the Squeeze 

“BASIC Line Extender” is a utility for BASIC programmers 
that allows you to add to the end of any line in your program. 
You're still limited to entering two screen lines at a time, but 
you can build up program lines which take six or more screen 
lines to list. Once entered, these extended lines will save, load, 
list, and run properly whether or not BASIC Line Extender is 
active. 

Although BASIC Line Extender can be used to extend any 
program line, it’s most valuable for continuing IF-THEN state- 
ments, allowing you to handle an error, for instance, on the 
same line in which it is detected. It’s also good for adding de- 
scriptive REM statements to program lines and for creating ex- 
tra long DATA lines or ON-GOTO statements. When memory 
is at a premium, an extension saves at least four bytes over 
starting a new line. 
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Preparing BASIC Line Extender 
The program itself is short and contains some machine lan- 
guage in the form of DATA statements. Type it in and be sure 
to save a copy before running it—the program will erase itself 
after creating and activating the machine language routine. 
Line 10 protects a space for the machine language pro- 
gram by lowering the pointer to the top-of-BASIC by 256 
bytes. If you’d like to locate BASIC Line Extender elsewhere in 
memory, replace the value for the variable AD in line 10 with 
the starting address you want. 
To disable BASIC Line Extender, enter 


POKE772,124:POKE773,165 


Creating Extensions 

An extension is a line to be added to the end of a program 
line already in memory. Enter the extension with the same line 
number as the line to which it will be added. The first charac- 
ter after the line number will be one of three signal characters 
which never begin a normal BASIC line: a colon (:), a quota- 
tion mark (’), or a British pound sign (£). 


1. When the extension begins with a new statement, follow 
the line number with a colon. The colon will be included in 
the extended line as a statement divider. If you enter the 
line 10 PRINT’ THIS IS A LINE”, it will list normally. Next, 
enter the line 10 :PRINT’ AND ITS EXTENSION”, and the 
listing will read 10 PRINT’ THIS IS A LINE”’:PRINT“AND 
ITS EXTENSION”. 

2. When the separation falls between quotation marks (in a 
PRINT statement or string definition), the original line must 
not have a closing quotation mark. (BASIC does not require 
end quotes at the end of a line, anyway.) The extension line, 
however, must begin with a quotation mark (’), which will 
be omitted from the extended line. Enter 20 PRINT “THIS 
IS A LINE followed by 20 “ AND ITS EXTENSION”, and 
the listing will show 20 PRINT’ THIS IS A LINE AND ITS 
EXTENSION”. 

3. To continue in midstatement, begin the extension line with 
the British pound sign. This signal character, of course, will 
not be included in the program. Enter 15 A=A~B, then 15 
£*256, to get 15 A=A+B*256. A statement may be broken 
and continued at any point except within a BASIC keyword. 
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(BASIC stores and uses keywords as single-byte tokens. Ex- 
tensions are tokenized separately, so the tokenizing routine 
would have no opportunity to recognize a keyword that was 
partly in the original line and partly in the extension.) 
Watch carefully for split keywords—they will appear to be 
correct in listings, but will cause syntax errors or, worse, er- 
roneous results when the program is run. Numbers and 
variable names may be broken: 25 SYS49 and 25 £152 will 
result in 25 SYS49152. 


If you prefer to use a different signal character (other than 
£), try replacing the number 92 at the end of line 60 with 170 
(for +), 95 for (+), or 173 for (/). 

You can, if you like, add extension after extension—the 
tokenized line may be up to 244 bytes long. If an extension 
exceeds this limit, a STRING TOO LONG error message will 
be returned, leaving the line unchanged. The trade-off for this 
dramatic increase in flexibility is some difficulty in editing. 


Editing Extended Lines 

If you ever use abbreviations for BASIC keywords, you know 
that line listings sometimes run over onto a third line, and that 
run-over lines can be difficult to edit. The extra long lines gen- 
erated with BASIC Line Extender may be no easier to edit, but 
in most cases they'll be no more difficult either. List the ex- 
tended line and reenter it, two screen lines at a time, by using 
abbreviations to shrink the lines enough to insert the line 
number and the appropriate signal character. Be careful to re- 
assemble any split keywords before entering and making any 
necessary changes as you go. 

If you anticipate the need to edit extended lines, you may 
wish to enter them first as partial lines with different, very 
high line numbers (you can even include the signal characters, 
as long as a line of that number does not already exist), then 
combine them by changing the line numbers. To edit, you can 
list the partial lines, make any changes, and recombine them 
by again replacing the line numbers. When the program is 
completed, the partial lines can easily be deleted from the end. 

You no longer need to count spaces, refer to lists of abbrevi- 
ations, and retype statements that won’t fit. Activate BASIC 
Line Extender at the start of each programming session and let 
your creative logic flow—and forget about the two-line squeeze. 
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BASIC Line Extender 


For mistake-proof program entry, use ‘The Automatic Proofreader,”’ Appendix B, to type in 
this program. 


AQ 
QK 
QF 
QP 
PA 
AG 
HF 
CB 
JD 
HG 


JD 


FM 
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POKE55,@:POKE56, PEEK(56)—-1:CLR:AD=PEEK(56) *2 
56:PRINT" {CLR} {DOWN}WORKING...":C=0 
FORI=ADTOAD+129 : READB: C=C+B: POKEI, B:NEXT: IFC 
<>13921THENPRINT"DATA ERR":STOP 

POKEAD+4, PEEK (772) : POKEAD+5 , PEEK( 773 ) 
POKE773 ,AD/256: POKE772, AD-256* PEEK(773) 
PRINT" {CLR} {DOWN} "CHRS$(34)"BASIC LINE EXTEN 
DER"CHRS$(34)" IS OPERATIONAL." :NEW 

DATA138, 240,3,76,124,165,32,124,165,173,98,2, 
201,58,248,9,201,92 

DATA24@,5, 201,34, 248,1,96,132,11,32,19,166,1 
G4,104,176,3,76,237,164 
DATA162,2,134,39,202,173,0,2, 201,58, 208,3,23 
@,11,202,134,38,168,1,177 
DATA95,170,136,177,95,208,1,202,134,96,178,2 
G@2,229,95,24,181,11,144 


198 DATA5,162,23,198,98,3,134,95,165,45,133,98,1 


65,11,233,6,133,11,181,98 


118 DATA133,88,164,46,132,91,144,1,200,132,89,3 


2,184,163,165,49,164,59 


129 DATA133,45,132,46,164,11,177,38,145,95,136, 


16,249,76,42,165,98 
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Searchlight 


Katherine Myers 





You can save time with this short machine language rou- 
tine that spotlights errors in BASIC programs. A good tool 
for debugging programs you’ve written or those you've 
typed in. For the Commodore 64 and 128 in 64 mode. 


Your program comes to an abrupt halt and the words SYN- 
TAX ERROR IN 50 are on the screen. You list line 50 and 
study it time and again, wondering where the problem lies. 
Why, with all the amazing speed and power of your com- 
puter, won’t it show you where your error is? 

I know I’ve spent many hours—especially when I first got 
my computer—staring at lines I thought were written correctly 
and wondering where that error was. If you’ve spent too 
much time searching for errors, this program is for you. 

“Searchlight” is written in machine language (in the form 
of a BASIC loader) and is easy to use. Type in the program, 
save a copy, and run it before you load or start typing the pro- 
gram you'll be working on. 


A Safe Section of Memory 
Searchlight first asks you for the starting address so that you 
can locate it where it won’t interfere with your program or 
with any other machine language utilities in memory. Since 
it’s only 121 bytes long, it will fit in the cassette buffer. Of 
course, if you're using tape, this location would be inappropriate. 

It’s important to put the program somewhere safe in 
memory where BASIC can’t interfere with it. Here are some 
suggestions for a starting address: Disk users can use 828 (the 
beginning of the cassette buffer) or the 4K section at 49152- 
53247. (Remember to allow for 121 bytes.) Also, 50000 would 
work, and it’s easy to remember. 

You can also create a protected area of memory. Before 
running Searchlight, follow these instructions: 


e Enter 
TM=PEEK(55) + 256* PEEK(56):SA = TM—121:PRINTSA 
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and write down the number that will be the starting address. 
e Next, move the top of memory down with 


HB=INT(SA/256):LB=SA — 256* HB:POKE55,LB:POKE56,HB:CLR 


Line 20 is written for the user’s protection—it prevents 
the program from being inappropriately located (to screen 
RAM, for example). It also won’t let you locate it in an address 
below 820 or in ROM. 

After a location has been chosen, the loader POKEs in the 
data for the machine language routine and erases itself with 
the NEW command if all the data entered is correct. Be sure to 
note the location you first selected as you'll have to SYS to it. 


Putting It into Action 

When you wish to use Searchlight, SYS to the address you've 
chosen before you run your program. I usually put the SYS 
command in the first line of the program I’m testing so that I 
don’t have to type it in each time. When you run a program 
and an error is encountered, type LIST. The line that contains 
the error will be listed with an arrow pointing to the appropri- 
ate place in the code. For example, it may be in a spot where 
some code is missing, to a place where you're trying to go toa 
nonexistent line number, and so on. If the arrow is placed in a 
statement that contains parentheses, check to see whether 
there are an equal number of open and closed parentheses. If 
there isn’t an arrow in the statement listed, the error is at the 
end of the line. After Searchlight lists an erroneous statement 
and it is corrected, run the program again. If another error ex- 
ists, this, too, will be listed. Keep running it until the program 
is free of errors. 

Anytime you use RUN/STOP-RESTORE, Searchlight will 
be deactivated. This feature has been programmed for user 
convenience—you don’t have to turn off the machine or re- 
member any POKEs. Also, you can use Searchlight as a TRACE 
function by using the RUN/STOP key. Pressing RUN/STOP 
when a program is running will cause BREAK IN <line num- 
ber> to appear. Now, when you type LIST, the arrow will point 
to the statement that was executing when you pressed the 
RUN/STOP key. This can be useful in testing and debugging. 

When you make a correction, be sure to delete the arrow 
before pressing RETURN. If you don’t, the arrow will become 
part of the BASIC line in which it appears. 
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Certain errors, like those encountered during an INPUT 
statement (EXTRA IGNORED and REDO FROM START, for 
example) will not activate Searchlight since these are user er- 
rors and are not problems related to a program line. Also, the 
program will not indicate errors encountered during state- 
ments entered in direct mode. 

This program can save you many hours of searching for 
errors—especially when you're dealing with long lines. You 
can use it for your own programs or for those you type in 
from books or magazines. It’s especially helpful when you're 
typing in a program since it points to the place in the line 
where you need to look. You won’t have to start from the be- 
ginning of that line when you compare your version with the 
printed copy. 


Searchlight 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


BF 18 INPUT"{CLR}STARTING ADDRESS";SAS:SA=VAL(SAS) 
XC 20 IFSA<8290OR(SA>98@ANDSA< 2948 )OR(SA>32643ANDSA 
<49152 )ORSA>53122THEN1G 
MP 30 FORI=SATOSA+121:READA: POKEI ,A:N=N+A:NEXT 
EP 49 IFN<>16667THENPRINT"{CLR}ERROR IN DATA":STOP 
SG 5@ A=INT((SA+11)/256) :B=SA+11-A*256:C=INT((SA+4 
6) /256) :D=SA+46—-C* 256 
EA 68 POKESA+1,B:POKESA+6,A: POKESA+34, D: POKESA+39, 
C 
GG 76 PRINT"SYS"SA"TO USE":NEW 
EA 88 DATA169,11,141,34,3,169,192,141,35,3,96,165 
SE 98 DATA123,2@01,2,240,26,165,122,133,251,165,57, 
133 
XB 108 DATA181,165,58,133,182,169,9,133,183,169,46 
,14i 
CX 118 DATA6,3,169,192,141,7,3,76,51, 243,133,252 
XE 128 DATA165,183,208,18,238,183,169,145,32,218,2 
55,165 
EK 138 DATA181,133,20,165,182,133,21,76,167,166,16 . 
5,183 
MA 148 DATA2@1,1,208,9,230,183,56,165,251,229,95,1 
33 
XK 15@ DATA253,132,254,196,253, 240,13,200,200,177, 
95,240 
EF 168 DATA9,164,254,165,252,76,26,167,198, 254,169 
,95 
PH 178 DATA133,252,169,26,141,6,3,169,167,141,7,3, 
208,231 
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Triple 64 


Feeman Ng 





Three computers in your Commodore 64? This seven-line 
program creates three independent 12K blocks which can 
be accessed very simply. An excellent tool for program 
development and comparison. For the Commodore 64 
and 128 in 64 mode. 


Have you ever wished you could work on two or three pro- 
grams at once and compare them? Or view a disk directory 
without erasing a program in memory? This short machine 
language program lets you do just that. 

“Triple 64” is a machine language program (in the form 
of a BASIC loader) that divides the 64’s memory into three in- 
dependent 12K workspaces. You can work in any one of the 
areas without disturbing the other two. You can even save and 
load from any of the three work areas without affecting the 
others. The program starts at 40004 ($9C44) and uses only 71 
bytes. Also, a favorite area of many machine language pro- 
grammers, 49152 ($C000), is unaffected. 


Accessing Three Computers 

After you've entered and saved Triple 64, type RUN. To ac- 
cess any of the three areas, enter SYS 40004. Notice that the 
cursor disappears immediately after you press RETURN. Now 
press 1, 2, or 3—the identification numbers of the three inde- 
pendent work areas—and you're ready to begin programming. 
If you’ve found that you don’t recall which area you're in, en- 
ter PRINT PEEK(40061). This will return a 1, 2, or 3. 


Techniques and Applications 

The most obvious use of Triple 64 is to partition the computer 
to hold three BASIC programs. These could be games, utilities, 
or applications—or any combination. And switching between 
them involves only a SYS and a single keypress. Each work 
area holds up to 12K, space enough for a fairly sophisticated 
program. 
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Triple 64 may prove even more useful, however, in the 
development of your own programs. The three workspaces are 
truly separate; for example, one could hold a working version 
of your program, another might contain a test version you're 
enhancing, and the third could provide a scratch-pad area, 
where you could try out new ideas and write short programs 
to test them. These testing routines could even examine the 
other two memory areas for the effects on the programs resid- 
ing there. When you’ve got something working well, you can 
transfer it to another area with this simple procedure: 


1. List it to the screen. 

2. Select the desired Triple 64 workspace. 

3. Cursor up to the lines you want to transfer, and press 
RETURN over each of them. They'll immediately be in- 
serted into the BASIC program in the new workspace. 


Triple 64 offers a wide range of possibilities—it’s almost 
like having three instant 12K disk drives at your disposal. And 
if you have a disk drive as well, you can maintain its directory 
in one workspace while you work in the others. This is a very 
useful feature if your programs will be using files on the disk 
currently in your drive. 


Triple 64 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


MX 10 FORY=40004T0490071:READA: POKEY,A:NEXT 

RD 20 FORY=14336T014338: POKEY,@:NEXT 

SQ 38 FORY=26624T026626: POKEY,@:NEXT:NEW 

PX 40 DATA174,125,156,165,45,157,129,156,165,46,15 
7,132,156,32,228,255,41,15, 248 

ES 5@ DATA249, 201,4,176,245,170,142,125,156,189,12 
5,156,133,44,189,126,156,133,56 

CH 68 DATA189,129,156,133,45,133,47,133,49,189,132 
,156,133,46,133,48,133,58,96,1 

BE 70 DATA8,56,194,152,3,3,3,8,56,184 
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String Search 





Glen Colbert 


Use “String Search” to search through string arrays look- 
ing for a match. This utility is much faster than its BASIC 
equivalent. For the Commodore 64 and 128 in 64 mode. 


Although machine language is fast, BASIC is generally pref- 
erable when you’re writing a program to handle lots of strings: 
names, addresses, recipes, lists in general. BASIC has built-in 
string and array functions that make it easy to handle large 
volumes of information. 

It’s frustrating, however, to have to wait while the pro- 
gram searches through a few hundred entries looking for a 
match. The longer the list, the slower BASIC becomes. 

String Search is fast because it’s written in machine lan- 
guage (ML), although you don’t have to understand machine 
language to use it. 


Special Instructions 
There are two things you must do before using the program: 


1. The first and second variables defined in the target pro- 
gram must be strings. To be safe, put them in the first few 
lines. And the second string must be the “match” you’re 
looking for. 

2. The string array to be searched must be the first array 
DIMensioned. An integer array containing the same number 
of elements must be the second array DIMensioned. The 
integer array will contain flags that indicate a match has 
been found. 


Program 1 is the BASIC loader for String Search. When 
you run it, the ML routine is located to the top-of-BASIC 
memory and the pointers are reset, protecting it from BASIC. 
Program 1 can be incorporated into your own programs or 
loaded and run as a separate program before you load your 
own data-management program. 
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To access the search routine, enter 
SYS (PEEK(55)+256*PEEK(56)) 


The ML routine is relocatable. If you prefer, you can put it up 
at $C000 (49152). 

Program 2 is a test of String Search. After you have en- 
tered, saved, and run Program 1, run Program 2. First, an ar- 
ray containing 300 elements is set up. BASIC then searches for 
a match, and you see how many jiffies it takes. (A jiffy is 1/60 
second.) Next, the ML routine is used. You may be surprised 
at how much faster you get the results. 


How It Works 

The search method used in this routine is quite simple. When 
it’s called, the first operation is to swap out a portion of the 
zero page ($D9-$E9) into the cassette buffer. The length of the 
string to be checked for is put into $D9, and the address of the 
string is set into $DA-$DB. Next, addresses $DC-$DD are set 
to point to the zero element of the integer array. Addresses 
$EO-$E1 are set to point to the three bytes of string array 
information (length, low byte of address, and high byte of ad- 
dress) for the zero element of the string array. Things are now 
in order for the processing loop. 

The first step in the processing loop is to increment the 
pointers for the arrays that are being worked to the next ele- 
ment. For this reason, the zero element is not searched. The 
information for the string array element being worked is moved 
to $E5-$E7. Then $E5 is checked for a null (string = “ ”’”); if it 
is null, the zero page information is put back in and returned 
to BASIC. A counter for the search string ($E2) and one for 
the searched string ($E3) are set to zero, and the search begins. 

These counters determine whether or not there is a match. 
If the search string counter is equal to the length of the search 
string, there has been a match. If the searched string counter is 
equal to the length of the searched string, there has been no 
match. In either case, the routine sets the value in the integer 
array and returns to the main loop to try the next element of 
the array. 


If the counters do not match, the accumulator is loaded 
with the first character of the search string. This is compared 
against each element of the searched string until a match is 
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found. Then the second character of the search string is com- 
pared against the next character in the searched string, and so 
on, until the counter equals the length of the search string. If a 
match is not found, the search string counter is reset (but the 
searched string counter isn’t), and the program loops back. 


Program 1. String Search—BASIC Loader 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


PG 10 REM****# eee kee KK KEE! 3° SPACES}BASIC LOADER F 
OR **{5 SPACES}STRING SEARCH{2 SPACES}****** 
kKkkkkkkkkkkekkkekekenk 

AB 188 PRINT"{CLR}{4 DOWN}{3 SPACES}STRING SEARCHE 

R" 
CJ 118 PRINT"{2 DOWN}ONE MOMENT PLEASE" 
BH 128 TP=PEEK(55)+256*PEEK(56) 
SR 138 TP=TP-186:H=INT( (TP) /256) :L=TP-H* 256: POKE55 
,L:POKE56,H 

JH 148 IN=PEEK(55)+256*PEEK(56):FORC=IN TO IN+185: 
READI : POKEC, I: CK=CK+I:NEXT: 

RR 158 IFCK<>26449 THEN PRINT"ERROR IN DATA":END 

KH 160 REM*****xe kkk eKKEKEEK STRING SEARCH DATA*** 
KkKkkkkKkkKkKRKkKRKRKRKKRRKK 

PK 188 DATA 168,17,185,216,8,153,68,3,136, 288 

KH 198 DATA 247,168,9,177,45,133,217,200,177,45 

GF 288 DATA 133,218,208,177,45,133,219,24,1608,2 

BF 218 DATA 177,47,101,47,105,7,133,220,208,177 

SK 228 DATA 47,181,48,133,221,160,8,24,165,47 

FF 238 DATA 105,7,133,224,165,48,195,8,133,225 

RB 248 DATA 169,08,248,12,160,17,185,68,3,153 

BA 258 DATA 216,0,136,208, 247,96, 24,165,224,185 

RC 268 DATA 3,133,224,165,225,195,80,133,225,168 

HK 278 DATA 6,177,224,153,229,8,208,192,3, 288 

GD 288 DATA 246,24,165,228,105,2,133,220,165,221 

QD 298 DATA 185,8,133,221,165,229, 248,202,208, 2 

BP 388 DATA 248,210,162,0,134,227,134,226, 24,165 

XK 318 DATA 217,197,226, 248,31,24,165,229,197,227 

MS 328 DATA 144,37,164,226,177,218,164, 227,209,232 

DC 338 DATA 208,6,238,227,230,226, 208,226, 238,227 

PQ 348 DATA 169,8,133,226,248,218,1698,8,169,1 

KE 358 DATA 145,220,200,169,0,145,220,248,197,160 

EJ 368 DATA @,152,145,228,248,242 

RX 999 PRINT"DONE" :NEW 
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Program 2. String Search—Demo Program 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


PK 18 REM STRING SEARCH DEMO{9 SPACES }PROGRAM 
EJ 28 AS="DUMMY DATA":REM**MUST BE A STRING** 
PP 38 QS="":REM THIS IS TO BE USED AS THE SEARCH §S 
TRING KKKKKkKkKKRKKRK KE 
JC 48 DIMAS (3808),Q%(38@8):REM SEARCHED STRING AND F 
LAG ARRAY 
ES 45 ML=PEEK(55)+256*PEEK(56):REM START ADDRESS 
GB 58 PRINT"{CLR}{2 DOWN}{2 SPACES}STRING SEARCH D 
EMO" 
QE 188 PRINT"“BUILDING ARRAY" 
QG 118 QS="GOOD" 
DX 12@ FORL=1T0299 
DK 132 : 
QQ 148 :AS(L)="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
PM 158 3: 
BB 168 NEXTL 
BP 178 A$(1)="GARBAGE GOOD MORE GARBAGE" 
DM 188 AS(1@)="GARB GOOD MORE GARB" 
SM 185 A$(78)="GOOD GARBAGE" 
DB 198 AS$(1@@)="GARBAGE GOOD" 
MM 195 AS$(25@8)="GARBAGE GOOD MORE GARBAGE" 
XE 208 PRINT"ARRAY FINISHED" 
JQ 300 REM**** xk xkkkkkKKKETA SPDACES}BASIC SEARCH 
{2 SPACES } XR RR RKRKKKEKKKEKEKKKKKKK 
BH 318 PRINT"BASIC SEARCH": TIS="QG0000" 
JM 328 FORL=1T0299 
BJ 338 :FORJ=1TOLEN(AS(L))-LEN(Q$)+1 
KB 3480 ::IFMIDS(AS(L),J7,LEN(QS) )=QSTHENQ$(L)=1:NEX 
TL 
HD 358 :NEXTJ 
XS 360 NEXTL 
MK 378 PRINTTI;"JIFFIES" 
AS 388 FORL=1T0299 
RG 398 :IFQ%(L)<>@THENPRINTAS (L) 
AB 395 NEXTL 
SJ 400 REM**** xk eek keKKEKIITG SPACES}ML SEARCH 
{3 SPACES } 88K KKK KKK KKK KKK KKK 
DD 418 PRINT"ML SEARCH": TIS="980890G" 
CJ 428 SYS(ML) 
XS 430 PRINTTI;"JIFFIES" 
Qc 448 FORL=1T0299 
JF 458 :I1FQ%(L)<>@THENPRINTAS (L) 
FE 468 NEXTL 
GG 999 END 
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Step Lister 


E. A. Cottrell 


“Step Lister” lets you look at your BASIC program lines 
without repeatedly typing LIST. This is a machine 
language routine, but it requires no special knowledge to 
use it. For Commodore 64 and 128 in 64 mode. 





“Step Lister’’ is a machine language wedge (explained below) 
that allows you to step through a BASIC listing one line at a 
time. To see the first line of your program, just enter 


@0 
Entering any other number after the at sign (@) will start the 
listing at that line. There should be no spaces between the @ 
and the line number, and the @ must be on the left margin. 
Then press any key, and the next line will be displayed. 
Press the space bar and hold it down; the listing will continue 
scrolling until the space bar is released. If you wish to stop 
Step Lister, press RUN/STOP. 
Be sure to save the program before you run it, because, if 
there are any undetected errors, the computer may crash. 


What Is a Wedge? 

To understand a wedge, you must first have some knowledge 
of how BASIC works. When you press RETURN, one of two 
things happens. If the entered line has a number as the first 
character, the computer assumes that a BASIC line is being 
entered. This line is then converted to BASIC tokens and is put 
into its proper place in memory. (Tokens are single-byte sym- 
bols that represent BASIC commands. To save space and time, 
the computer stores PRINT, for example, as 153.) 

No interpretation of the characters following the line 
number is made until the program is run. If the first character 
is not numeric, the line is tokenized and placed in the BASIC 
input buffer at locations 512-600 ($0200-$0258). The inter- 
preter then calls the CHRGET subroutine to get the characters 
from the buffer and return them for interpretation. 
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To implement a wedge, the CHRGET subroutine located 
at 115-138 ($73-$8A) must be altered to go to your machine 
language program before returning to the interpreter. At the 
entry point of the wedge, a check is made to see whether the 
special character (in this case, @) has been entered. If it has 
been, the special routine is executed. Otherwise, the character 
is sent to the interpreter for normal BASIC interpretation and 
execution. 


Using ROM Routines 
Step Lister uses many of the subroutines that are part of the 
BASIC ROM in the 64. Analyzing some of the subroutines al- 
ready in the machine can prove useful. 

The wedge can be a powerful tool. If you decide to write 
a wedge program of your own, heed one word of caution: Do 
not try to alter the CHRGET subroutine with BASIC. You will 
be changing the way BASIC gets its instructions in the middle 
of a BASIC program, and this will crash your computer. 


Step Lister 


For mistake-proof program entry, use ‘‘The Automatic Proofreader,’ Appendix B, to type in 
this program. 


AB 18 TM=49152 

EH 280 FOR I = TM TO TM + 241 

MJ 30 READ A: POKE I,A: CHK = CHK + Az: NEXT I 

AB 48 X = 828: FOR I = X TO X + 23 

EM 5@ READ A: POKE I,A: CHK = CHK + A: NEXT I 

AX 6@ IF CHK <> 32456 THEN PRINT "DATA ERROR": END 

FX 768 SYS49152 

PS 108 DATA162,9,189,68,3,149,115,232,224,23,288,2 
46,0,201,64, 249, 22,201 

PF 120 DATA5S8,176,10,201,32,248,11,56,233,48, 56,23 
3,208,96, 76,116,164, 234 

SJ 14@ DATA76,115,0,169,0,185,9,2,201,64,208,243,2 
99,185,0,2,201,0,248,9, 261 

FQ 1698 DATA45, 208,244,169,171,153,08,2,169,1,133,12 
2,168,1,24,185,8,2,32,197 

FM 188 DATA169,32,19,166,160,9,32,121,8,32,1907,169 
,165,20,5,21,288,6,169 

DK 208 DATA255,133,20,133,21,169,1,132,198,168,1,1 
32,15,177,95,249,175,32 

DF 229 DATA44,168,32,215,179,134,25,132,26,173,198 
,8,248,251,169,8,141,198 

MJ 238 DATA®,166,25,164, 26, 200,177,95,1798,288,177, 
95,197,21,298,4,228, 29 


30 





QX 


CC 


QF 


258 


270 


290 


318 


320 


358 


370 
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DATA24@,2,176,44,132,73,32,205,189,169,32,1 
64,73,41,127,32,71,171 
DATA291,34,208,6,165,15,73,255,133,15,208,2 
40,17,177,95,208,16,168 
DATA177,95,170,200,177,95,134,95,133,96, 208 
,163,198,6,3,16,218, 201 

DATA255, 240,214, 36,15,48, 219, 56, 233,127,170 
,132,73,168,255,202,248,8 
DATA29090,185,158,160,16, 250,48, 245, 200,185,1 
58,1698,48,181,32,71,171,288 
DATA245,9,230,122,208,2,230,123,173,9,2,201 
,98,249,10, 201,32, 248, 239 


DATA76,13,192,234, 234,234, 96 
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ASCII/POKE Printer 


Todd Heimarck 


Sometimes it would be handy to be able to calculate ASCII 
and POKE values. This utility lets you automatically calcu- 
late ASCH and POKE values as you’re writing a BASIC 
program. For the Commodore 64 and 128 in 64 mode. 





Chances are, PRINTing to the screen was one of the first 
things you learned to do in BASIC. You probably also learned 
how to control where the computer prints by putting cursor 
commands within strings or by using SPC and TAB functions. 
The PRINT statement is common, primarily because it is so 
easy to use. But in certain situations, you may need to find out 
a character’s ASCII number. And sometimes it is quicker to 
simply POKE a character onto the screen. 

But before you can POKE, you have to know the charac- 
ter number. Let’s put a row of hearts at the top of the screen. 
So, we need to POKE a bunch of 81’s. Wait, those are solid 
circles. What’s the number for hearts? I know that list is here 
somewhere in the reference book. 

If you use POKEs or ASCII values in programming, you 
know how annoying it is to flip back and forth through the 
reference book, losing time and patience. Even worse, you 
could lose the book and end up typing the character and 
PEEKing screen memory to get the POKE value. 


Let the Computer Do the Work 
Your Commodore already knows the POKE values and ASCII 
numbers, so why not let it do the work? 

This short machine language program, ‘“ASCII/POKE 
Printer,” does not use any BASIC memory. Its 52 bytes remain 
in the cassette buffer, ready to convert letters and graphics 
characters to POKE and ASCII numbers whenever you want. 

Note that if you write a program that POKEs any of the 
address locations of the cassette buffer (828-1019), you may 
lose ASCII/POKE Printer. Also, if you use a cassette player 
for saves, loads, or tape files, you will erase the machine lan- 
guage program. Fortunately, it is entirely relocatable, so if you 
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want to use the cassette buffer, you can change line 10 to move 
it to another part of memory. On the 64, it is usually safe to 
use any of the memory locations from 49152 through 53247. 


LOADing and Using the Program 

Type in the program exactly as it appears. Make sure the 
DATA statements are exactly as printed. Save the program to 
tape or disk and VERIFY (if you have a cassette drive). Then 
run it and type NEW. The program is now in your cassette 
buffer. BASIC memory was cleared when you typed NEW, but 
it did not touch the cassette buffer. 

Anytime you want to use ASCII/POKE Printer, type SYS 
828. The computer will wait for you to type a character and 
then will display that character in the upper left corner with 
the ASCII value to the right and the POKE value below. Type 
another character, and you get two new values. 

To exit back to BASIC, hold down SHIFT and press RE- 
TURN. This returns you to your program. SYS 828 will send 
you back to ASCII/POKE Printer, and so on. You can toggle 
back and forth as the need arises. 


Special Cases 

There are some ASCII numbers that have no equivalent 
POKEs. For example, adding CHR$(13) to a string will force a 
RETURN after the string is printed. But ASCII 13 cannot be 
POKEd to the screen. (What would a RETURN look like?) 
ASCII/POKE Printer will give you the correct ASCII numbers, 
but for certain characters, like RETURN, it will print a blank 
space and list a POKE of 32 (the number for a blank space). In 
the case of function keys, CLR/HOME, INST/DEL, and color 
commands, it will print a reverse-video character, as if in 
quote mode, and the correct ASCII number. But the POKE 
number will be wrong. Keys that perform a function—clearing 
the screen, for example—are not characters that can be 
POKEd to the screen. 

Also note that you cannot get values for reverse-video 
characters, which do not have separate ASCII numbers. To 
program a reverse character, precede it with a CHR$(18). To 
POKE a reverse-video character, add 128 to the POKE value 
of the regular character. 

This machine language utility will be most helpful when 
you are writing BASIC programs. By letting the computer tell 
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you ASCII and POKE values, you can really save time. The 


program was written to be short and simple, but if you are fa- 
miliar with machine language, you can modify it to do much 


more. 


ASCIT/POKE Printer 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 


this program. 


SH 


QA 


34 


23 


25 


FORJ=828T0879 : READK : POKEJ , K:NEXT 

READY : IFY<>999THENSTOP 

DATA32,228,255, 249,251,179,201,141,208,1,96, 
169,147 

DATA32, 218,255,169, 255,133,212,138,32,219,25 
5,169, 32 
DATA32,218,255,169,0,32,205,189,169,13,32,21 
@,255 
DATA169,9,133,212,174,8,4,32,295,189,232,268 
1 204 

DATA999 


Auto Line Numbering 





Jeff Young 


Programmers will find this short program to be a very 
handy, time-saving utility. For the Commodore 64 and 
128 in 64 mode. 


“Auto Line Numbering”’ is a utility that automatically gener- 
ates a line number for the current BASIC program statement 
being entered. As written, the program begins with line 100 
and increments by tens (100, 110, 120, and so forth). You can 
modify this as described below. 


How to Use the Program 

Auto Line Numbering is a BASIC program that loads a ma- 
chine language subroutine into a free block of memory. The 
program puts the subroutine at memory location 49152 
($C000). This area of memory will not be used by BASIC, so 
the program should be safe. 

Type in the program and save it. After loading, type 
RUN, press RETURN, type NEW, press RETURN, type SYS 
49152, and press RETURN. If you wish to leave the program 
for any reason, just press RETURN immediately after you see 
a new line number. To return to the program, type SYS 49160 
and press RETURN. This will continue generating line num- 
bers from where you left off. 

Although the program will always begin numbering with 
100 and increment by tens, you can modify either of these 
numbers if you wish. If you want to begin with a number 
other than 100, determine the number with which you want 
to start and then subtract ten. Next, POKE this number in low- 
byte/high-byte format into 251 and 252; then SYS 49160. 

For example, if you want to begin with line 1000, subtract 
10. The number you’re now working with is 990. To deter- 
mine low-byte/high-byte, divide 990 by 256. The result, 3, is 
the number you POKE into location 252—POKE252,3. The re- 
mainder of the division is 222. Now, POKE 251,222. The low 
byte is location 251, and the high byte, 252. 
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The lines you would type, then, if you wish to begin the 
line numbering with 1000 are 


POKE 251,222:POKE 252,3 
SYS 49160 


To change the increment from ten, POKE the desired 
number into location 49179. If you want to increment by fives, 
for example, enter 


POKE 49179,5 


This utility program can save you a lot of time when 
you're programming, and it provides a neat, structured se- 
quence for program line numbers. 


Auto Line Numbering 


For mistake-proof program entry, use ‘‘The Automatic Proofreader,’’ Appendix B, to type in 
this program. 


JM 1 X=49152 

QD 2 READY: IFY=-1THEN4 

KQ 3 POKEX, Y:X=X+1:Z=Z+Y:GOTO2 

CB 4 IF2Z<>12374THENPRINT"ERROR IN DATA STATEMENTS" 

: END 

FG 198 DATA169,998,133,251,169,9,133,252,169,19,141 
,2,3,169,192,141,3,3,96,32,25 

AR 119 DATA192,76,134,164,24,169,19,1801,251,133,25 
1,144,2,230,252,165,251,133,99 

HC 128 DATA165, 252,133,98,162,144,56,32,73,188,32, 
221,189,162,9,189,1,1,249,9, 32 

XG 138 DATA21@,255,157,9,2,232,2908, 242,32,18,225,2 
91,13,249,3,76,1805,165,56,165 

SP 148 DATA251,233,20,176,2,198,252,169,131,141,2, 
3,169,164,141,3,3,76,118,165,-1 
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Screen Control 


Help Screens 





Jaffer Siddiqui 


Create up to eight help screens with your BASIC and 
machine language programs. Disk drive required. For the 
Commodore 64 and 128. 


Many powerful programs include a lot of commands and op- 
tions. In some cases, it’s difficult or impossible to remember 
them all. And paging through a magazine article or a manual 
for the documentation can be awkward and inconvenient. “Help 
Screens” offers an elegant solution. By following a few simple 
steps, you can create up to eight help screens for a program. 

Begin by typing in and saving a copy of Help Screens. Al- 
though most of the program is written in machine language, 
you can save, load, and run the program as if it were BASIC. 
The machine language is stored in the form of DATA state- 
ments. Program 1 is for the Commodore 64; Program 2 is for 
the 128. 

When you type RUN, the machine language routines are 
POKEd into memory and the screen is cleared. When the 
flashing cursor returns, you’re ready to begin creating your 
help screens. 

Press the CLR key (SHIFT-CLR/HOME) to erase the 
screen; then type in the information you want displayed on 
the first help screen. (Do not press RETURN while you’re 
working on this screen. If it is pressed, a SYNTAX ERROR will 
result, and your screen will be destroyed.) Use the cursor keys 
to move the cursor to any position on the screen. Be careful to 
avoid scrolling the top line off the screen. 

When you've finished the help screen, 64 users should 
press CTRL-F (press F while holding down the CTRL key). If 
you're using the 128 version, press the ENTER key on the nu- 
meric keypad. Help Screens then stores the page in memory. 
The 64 version flashes the border color to signal that the page 
has been saved. The 128 version changes the border color. 
After a help screen has been saved, you can clear the screen 
and design the next one. 
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By following these steps, you can create up to eight 
screens. After the eighth one has been finished, a new pro- 
gram—HELPER.EXE—is created on your disk, and your help 
screens are saved into a file called HS. You may find that you 
need fewer than eight help screens. In the 64 version, just 
press CTRL-D after completing your last screen. In the 128 
version, press SHIFT-ENTER. 

It’s a good idea to save your help screens on the same 
disk as the program they'll be used to support. For example, if 
you've created help screens for a program named “’File-a- 
way,” insert the disk that contains “File-a-way” and run 
‘Help Screens.” The ““HELPER.EXE” and “HS” files will then 
be on the same disk. 


In Action 
To use Help Screens, Commodore 64 users should enter 


LOAD “HELPER.EXE”,8,1 
Commodore 128 users should enter 
BLOAD “HELPER.EXE” 


and then type SYS 5632. 

Help Screens works with all BASIC programs and most 
machine language programs. Always load Help Screens 
(HELPER.EXE) first. After HELPER.EXE has been loaded, it 
loads the HS file that contains your help screens. Enter NEW; 
then load the program for which you created the help screens. 
Your help screens are now available—and only a keypress away. 

If you’re using a 64, press CTRL-H. If you're using a 128, 
press HELP. Page 1 (the first one created) is displayed when 
you first access the help screens. Commodore 64 users can flip 
through the pages by pressing CTRL-cursor right to page for- 
ward or CTRL-cursor up to go to the previous help screen. In 
the 128 version, use the up and down arrow keys to page 
through the help screens. To exit the help screens, press 
CTRL-DEL (64 version). In the 128 version, press the HELP 
key again. When you return to the help screens, you'll see the 
most recently viewed screen. 

Running certain machine language programs—or pressing 
RUN/STOP-RESTORE—will prevent Help Screens from op- 
erating. If this happens, type SYS 679 (64 version) or SYS 
59728 (128 version) to reactivate Help Screens. 
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Program 1. Help Screens—64 Version 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


DJ 18 FORS=679T0O766 :READA: POKES ,A:NEXT: FORS=829TO1 
@16:READA: POKES, A:NEXT 

ES 20 FORS=49152T049397 :READA: POKES,A:NEXT: PRINT" 
{CLR} {WHT}PROGRAM ACTIVATED" 

KC 38 PRINT"CTRL/F{2 SPACES}SCREEN FINISHED":PRINT 
"CTRL/D{2 SPACES}DONE WITH SCREENS":SYS49152 
: NEW 

RC 48 DATA 173,245,3,2808,18,173,20 

QH 5@ DATA 3,141,212,2,173,21,3 

PR 68 DATA 141,213,2,238,245,3,32 

AX 76 DATA 223,3,1608,2,169, 214, 32 

GM 88 DATA 168,3,88,169,131,141,2 

XJ 98 DATA 3,169,164,141,3,3,76 

FQ 180 DATA 116,164,76,8,9,173,141 

FH 118 DATA 2,201,4, 208, 246,165,197 

CE 12@ DATA 201,29,208,2408,168,234,169 

AP 130 DATA 49,32,168,3,88,169,193 

MJ 148 DATA 141,24,3,173,2,221,9 

EH 156 DATA 3,141,2,221,173,21,208,72,76 

HR 168 DATA 52,3,169,08,141,21, 208,169,197 

CP 178 DATA 141,8,221,173,32,208,72 

SX 188 DATA 173,134,2,32,205,3,76 

AA 198 DATA 79,3,24,32,168,3,32 

KM 208 DATA 193,3,76,89,3,56, 76 

GP 218 DATA 76,3,238,32, 208,165,197 

HF 228 DATA 261,64, 208,247, 238, 32,2088 

BF 238 DATA 173,141,2,201,4,208, 246 

FR 248 DATA 165,197,201,2,248,217,2@1 

QA 258 DATA 7,248,223,201,8,208,2322 

MH 268 DATA 169,63,141,2,221,169,199 

JK 278 DATA 141,8,221,169, 21,141, 24 

KH 288 DATA 208,104,141,32,208,104,141 

RC 298 DATA 21,208,160,2,169, 214, 32 

AP 308 DATA 169,3,169,71,141,24,3 

CQ 318 DATA 76,211,2,128,141,28,3 

CQ 328 DATA 1408,21,3,96,173,246,3 

AE 338 DATA 176,18,105,16,288,2,169 

QD 348 DATA 128,141, 246,3,96, 233,16 

RH 358 DATA 201,128,176, 246,169,248,144 

MA 368 DATA 242,173,24,208,41,15,13 

HX 378 DATA 246,3,141,24,208,96,162 

BR 388 DATA 8,157,98,216,157,255, 216 

HF 398 DATA 157,254, 217,157,253, 218, 232 

MH 488 DATA 208, 241,96,169,1,162,8 

RF 41@ DATA 168,32,186,255,169,2,162 

XJ 420 DATA 247,160,3,32,189,255,169 

SX 438 DATA @,76,213,255,8,128,72,83 
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QB 448 DATA 
QX 458 DATA 
SS 468 DATA 
XF 476 DATA 
RR 488 DATA 
JX 490 DATA 
RG 580 DATA 
MC 518 DATA 
HC 52@ DATA 
GP 538 DATA 
PF 549 DATA 
QG 558 DATA 
MS 569 DATA 
HK 578 DATA 
EG 588 DATA 
QS 598 DATA 
GE 6©9@@ DATA 
QJ ©6190 DATA 
QD 628 DATA 
EX 638 DATA 
CF 648 DATA 
PE 658 DATA 
MF ©6698 DATA 
HQ 678 DATA 
QE 688 DATA 
SD 6998 DATA 
KR 700 DATA 
RP 7108 DATA 
MB 7298 DATA 
ED 730 DATA 
DF 748 DATA 
DP 7598 DATA 
QJ 760 DATA 
SH 778 DATA 
CF 7808 DATA 
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169,17,1690,192,32,2801,192 
88,169,193,141,24,3,96 
76,49,234,173,141,2, 261 
4,208,246,165,197,281,18 
240,71,201,21,208, 236, 32 
209,192,32,197,192,88,169 
0,133,95,169,4,133,96 
169,232,133,98,169,7,133 
91,173,244,192,133,88,173 
245,192,133,89, 32,191,163 
238,32,2808,162,0,32,179 
238,232,208, 250, 206, 32, 208 
173, 231,192,201,8,248,190 
169,17,160,192,32,201,192 
76,14,192,32,197,192,88 
169,167,141,2,3,133,253 
169,2,141,3,3,133,254 
32,222,192,169,18,162,232 
169,192,32,189, 255,162,258 
168,3,169,253,32,216,255 
32,222,192,169,2,162,242 
169,192,32,189,255,169,9 
133,253,169,168,133,254,165 
1,41,254,133,1,169,253 
162,255,168,191,32,216,255 
169,71,141,24,3,169,131 
141,2,3,169,164,141,3 
371657159914 43351 
96,169,49,160,234,120,141 
20,3,148,21,3,96,173 
245,192,24,185,4,141,245 
192, 238,231,192,96,169,1 
162,8,160,1,76,186,255 
9,72,69,7/76,89,69,82 
46,69,88,69,72,83,232,159 


Program 2. Help Screens—128 Version 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


FE 19 
AF 26 
BG 390 
JH 40 
EM 59 
KC 60 


PRINT 


FOR I= 
FOR I= 


BSAVE 
PRINT 
END 


“LOADING DATA" 

3072 TO 3249:READ A:POKE I,A:NEXT 

5632 TO 6845:READ A:POKE I,A:NEXT 
“HELPER.EXE",P5632 TO P6846 
"INSTALLING HELP SCREEN MAKER":SYS3@72 


BR 3072 DATA173,69,3,141,33,12,173,61 
XD 3080 DATA3,141,34,12,169,28,141,60 
XD 3888 DATA3,169,12,141,61,3,169,192 
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DATA141,76,12,96,192, 76,2498, 3 
DATA76,255,255,224,1,248,79,224 
DATAS, 208, 245,173,41,18,164, 236 
DATA145,224,169,4,141,73,12,162 
DATAS,120,173,6,213,9,3,141 
DATA6, 213,169,127,141,8,255,189 
DATA ,4,157,0,192,232, 288,247 
DATA238,73,12,238,76,12,173,73 
DATA12,201,8, 208, 234,169,98,141 
DATA®, 255,173,6,213,41,252,141 
DATA6, 213,88, 238, 32,288,173, 76 
DATA12,201,224,249,1,96,169,1 
DATA162,0,32,104,255,169,8,162 
DATA8, 168, 32,186, 255,169,4,162 
DATA174,1690,12,32,189,255,169,@ 
DATA133, 253,169,192,133,254,169,253 
DATA162, 255,169, 223,32,216,255,129 
DATA173,33,12,141,60,3,173,34 
DATA12,141,61,3,88,96,48,58 
DATA72,83 
DATA169,9,141,9,255,173,6,213 
DATAY,3,141,6,213,169,79,141 
DATA®, 255,162,09,189,8, 288,157 
DATA, 224,232,208, 247,238,22,22 
DATA238, 25, 22,173,22,22,201,224 
DATA2@8, 234,169,0,141,8,255,173 
DATA6, 213,41, 252,141,6,213,169 
DATA1,162,0,32,184,255,169,1 
DATA162,8,169,90,32,186,255,169 
DATA2,162,119,160,22,32,189,255 
DATA169,90,162,0,1690,192,32,213 
DATA255,169,192,133,58,32,129,175 
DATA173,60@,3,141,131,22,173,61 
DATA3,141,132,22,169,126,141,60 
DATA3,169,22,141,61,3,96, 72 
DATA83,8,9,216,9,240, 201,132 
DATA24@,3,76,255,255,169,118,141 
DATA68,3,128,173,24,3,72,169 
DATA51,141,24,3,173,25,3,72 
DATA169, 255,141,25,3,165,216, 72 
DATA169,@8,133,216,165,217,72,169 
DATA4,133,217,173,44,19,72,173 
DATA121,22,141,44,19,173,21, 208 
DATA72,169,8,141, 21,208,173, 33 
DATA298, 72,169,9,141, 33,298,173 
DATA2, 221,9,3,141,2,221,173 
DATAG,221,72,41,252,9,9,141 
DATAG, 221,173,6,213,72,41,63 
DATA9,67,141,6,213,32,198, 23 
DATA88,165,212,291,88, 208,250,165 
DATA212, 201,64, 240, 24, 201,83, 240 
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DATA7, 201,84, 208, 242,169,240, 44 
DATA169,16,24,109,44,10,41,12/7 
DATA141,44,190,16,220,165, 212,201 
DATA88, 208, 250,120,169,22,141,7 
DATA213,173,6,213,9,3,141,6 
DATA213,169,112,141,9,255,1698,9 
DATA198,123,198,125,177,124,145,122 
DATA208 , 208, 249,165,123,201, 216,208 
DATA239,169,0,141,90,255,141,/7 
DATA213,104,141,6, 213,194,141,98 
DATA221,104,141,33,208,184,141,21 
DATA208,173,44,190,141,121,22,1904 
DATA141,44,10,104,133,217,184,133 
DATA216,1904,141,25,3,194,141, 24 
DATA3, 76,198, 22,169,112,141,98 
DATA255,169,22,141,7,213,160,08 
DATA177,122,145,124,169,13,145,122 
DATA200 , 208, 245, 238,123,230,125,165 
DATA123, 201,220,208, 235,169,09,141 
DATA®, 255,141,7,213,173,6,213 
DATA41,252,141,6,213,96 





Blick 


Plummer Hensley 





This short utility spices up your programs by adding 
a blink and a click to the PRINT statement. Anytime 
you type a character to the screen, you'll see an under- 

line cursor accompanied by a brief sound. For the 
Commodore 64 and 128. 


If you don’t think sound is important, try playing your favorite 
action game with the volume turned all the way down. It’s just 
not as much fun without the explosions, zaps, and other noises. 
Sounds help to liven up games—so why not make PRINT 
statements a little more interesting? This program gives you a 
blink and a click (a blick) every time a character is printed. 


Typing It In 

Enter the version written for your computer, and save it to 
tape or disk before proceeding. Saving is important because 
the last command in line 120 is a NEW, which erases the pro- 
gram currently in memory. 

“Blick” is written in machine language (ML), but you 
don’t need to know machine language to use it. It is presented 
in the form of a BASIC loader that reads DATA statements 
and POKEs the routine into memory. After running it, you 
should see the message BLICK ENABLED. 

Once Blick is in memory, try printing a message—PRINT 
“THIS IS BLICK”, for example. Or load a program and list it. 
See the table for ideas on customizing the program. 

If you should accidentally disable Blick by pressing 
RUN/STOP-RESTORE or RUN/STOP-RESET, enter the ap- 
propriate SYS from the table to reenable Blick. To turn it off, 
enter the two POKEs listed. (Note: enter them on the same 
line, separated by a colon.) To change the cursor character, 
POKE the appropriate ASCII value into the location listed. Fi- 
nally, you can modify the blinking speed with a POKE to the 
address specified in the table. 
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Important Blick Locations 


64 128 
Enable SYS 679 SYS 3072 


Disable POKE 806,202: POKE 806,121: 
POKE 807,241 POKE 807,239 


Change cursor 


(POKE location with any ASCII 
value (x)) POKE 728,x POKE 3128,x 


Change blinking speed 

(POKE location with 0-255 (y); 

numbers greater than 234 speed 

up cursor) POKE 733,Y POKE 3133,Y 


How It Works 

Blick is a wedge that temporarily diverts the PRINT statement 
into a routine that prints an underline character, makes a 
sound, and erases the underline. When it’s finished, it goes on 
to the main PRINT statement. 

PRINT is a common, easy-to-use statement in BASIC. But 
at the machine language level, PRINT is more complex; it has 
to do a lot of work. First, the computer looks ahead to see 
whether it will be printing a variable, a number, a string, or 
maybe even a long calculation. Once that’s straightened out 
and BASIC knows the sequence of characters to be printed, it 
goes through the Kernal routine for printing characters (always 
at location $FFD2 on the 128 and 64). The Kernal routine 
looks at locations 806-807 to find the actual ROM routine for 
printing a character. 

This pointer was deliberately designed to be the weak link 
in the process. If we change the address there, anytime the 
computer wants to print a character, it runs into a detour we 
have set up. This detour handles the blink and the click before 
jumping back to the main PRINT routine. 

A word of caution: The 64 version of Blick is subject to 
the infamous lockup bug which affects version 2 of ROM. To 
see if your 64 has version 2 of the operating system, start with 
a newly powered up 64 and put the cursor at the bottom of 
the screen. Hold down the space bar until it travels across two 
complete screen lines. After the cursor has wrapped around to 
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the beginning of the next line exactly twice, use the DEL key 
to move it back to the end of the previous line. If the screen 
says LOAD and the computer locks up, you’ve got version 2 
ROM. This lockup happens only when the cursor color is red, 
cyan, blue, yellow, light red, dark gray, light blue, and light 
gray. If you limit character colors to black, white, purple, 
green, orange, brown, medium gray, and light green, you'll be 
safe. It’s also a good idea to limit your printing to strings of 79 
characters or fewer. 


Program 1. Blick—64 Version 


For mistake-proof program entry, use ‘The Automatic Proofreader,”” Appendix B, to type in 
this program. 


DP 108 FORI=679T0O758:READA: POKEI,A:CK=CK+A:NEXT 

BP 1108 IFCK<>11167THENPRINT"ERROR IN DATA STATEMEN 
TS.":STOP 

BD 120 SYS679:PRINT"BLICK ENABLED" :NEW 

SF 138 DATA 169,15,141,24,212,141,19,212,169,1292 

SM 148 DATA 141,15,212,169,1,141,14,212,169,@ 

JX 158 DATA 141,20,212,162,201,160,2,142,38,3 

MC 168 DATA 1498,39,3,96, 32,202, 241,133, 251,134 

MD 178 DATA 252,132,253,169, 2?33,141,18,212,169,175 

MP 180 DATA 32,202,241,162,234,160,0,200,208,253 

BH 198 DATA 232,208, 250,169,32,141,18,212,169,20 

RM 200 DATA 32,202,241,165,251,166,252,164,253, 96 


Program 2. Blick—128 Version 


For mistake-proof program entry, use ‘The Automatic Proofreader,’’ Appendix B, to type in 
this program. 


BA 180 FORI=3072T03158 : READA: POKEI,A:CK=CK+A:NEXT 

XD 118 IFCK<>18998THENPRINT"ERROR IN DATA STATEMEN 
TS.":STOP 

FE 120 SYS3872:PRINT"BLICK ENABLED" :NEW 

SF 1308 DATA 169,15,141,24,212,141,19,212,169,120 

SM 148 DATA 141,15,212,169,1,141,14,212,169,98 

RH 158 DATA 141, 2@,212,162,34,160,12,142, 38,3 

QG 168 DATA 1498,39,3,96,72,169,0,141,9,255 

SD 178 DATA 194,32,121,239,133,167,134,168,132,169 

FG 188 DATA 169,33,141,18,212,169,175,32,121, 239 

PS 198 DATA 162,234,160,0, 208, 208, 253,232, 208,250 

SS 200 DATA 169,32,141,18,212,169,20,32,121,239 

EF 218 DATA 165,167,166,168,164,169, 96 
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Thorpe Thompson 


This machine language routine can give your BASIC pro- 
grams a highly professional look. It adds screen windowing 
capability—you can choose the window size—for user 
input. For the Commodore 64 and 128 in 64 mode. 


When you're programming, it’s important to maintain tight 
control over input. You can use the INPUT statement, but it’s 
often susceptible to unwanted results. “Input Windows,” a 
machine language utility in the form of a BASIC program, 
functions just like an INPUT statement, but it gives you more 
control over the process by creating a window for inputting a 
response from a user. The window, which can easily be posi- 
tioned anywhere on the screen, defines the size of the input 
field and the active area of the editing keys (CRSR-right/ 
CRSR-left and INST/DEL). When the RETURN key is pressed, 
the input data is placed in T$ or T1, depending on whether 
you require string or numeric data from the user. 


Using the Routine 

Type in and save Program 1. Type the DATA statements care- 
fully—one incorrect digit can make a big difference in ma- 
chine language. The program keeps track of a checksum value, 
so it will not write an executable file to the disk unless all the 
data items are correct. When you have a good file, you can 
load it into your BASIC program with the following line: 


5 IF A=0 THEN A=1: LOAD “INPUT 
,OBJ’,8,1 


If you're using tape, change the 8 to 1. Next, you need to 
add this subroutine to your program: 
10000 POKE 142,LNG: POKE 143,TYP 
10010 SYS49152: IF (1 AND ST) THEN 
T$=" ": T1=0 
10020 RETURN 


48 


SCREEN CONTROL 


You set LNG to the field size (in characters) and TYP to 
the data type (0=string/1=numeric) prior to calling the 
subroutine. 

The left edge of the input window will be placed at the 
current cursor position—you can position the window with 
PRINT statements. For example, if you want the window to 
start at the fifth row from the top and in the tenth column, 
you could use this line: 


100 PRINT “{HOME}{5 DOWN} 
{10 RIGHT}”; 


Don’t forget to put a semicolon on the end of the line, or 
the window will be placed one row below the one you want. 

Suppose you want the window to start next to a screen 
prompt. Since the position is determined by the current cursor 
position, you can use the prompt PRINT statement to position 
the window like this: 


100 PRINT “ENTER YOUR NAME- ”; 


Here, again, the semicolon must not be forgotten. The 
trailing space on the screen prompt separates the window 
from the prompt. 

Use the parameters LNG and TYP to control the input 
data. LNG is set to the maximum size of the input field in 
characters. If you wanted to input a string of ten characters in 
length, you would set LNG to 10 before calling the subrou- 
tine. (The data need not be ten characters in length, but it can 
be no greater than ten.) You must also set TYP to the type of 
data to be input. If TYP=O, the machine language routine 
treats the data as string input. A TYP of 1 causes the data to 
be treated as numeric input. 

Let’s set up the code to input a name with a maximum 
length of 20 characters: 


100 PRINT “ENTER YOUR NAME- ”; 
110 LNG=20:T YP=0:GOSUB 10000 


After the program returns from the GOSUB call, the data 
will be in the variable T$. You must transfer the value to an- 
other variable before calling the subroutine again or the data 
will be lost. As an example of numeric input, this code could 
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be used to input a dollars-and-cents amount in the range of 
$0.00 to $99.99: 


100 PRINT “ENTER THE PRICE-$”; 
110 LNG=5:TYP=1:GOSUB 10000 


This time you have to set TYP to 1. Note also that LNG 
was set to 5. This is necessary because the decimal point 
counts as one character in the field size. It’s possible to enter 
an amount as large as $99999 by omitting the decimal point, 
so you have to check the data after the GOSUB call to insure 
that it’s valid data. 


A Demonstration 

To see how Input Windows works, type in Program 2, 
“Demo,” and save a copy. Change the 8 in line 100 to 1 if 
you're using tape. Be sure Program 1 is on the disk (or imme- 
diately following Program 2 if you’re using tape). Load Demo 
and type RUN. The machine language file created by Program 
1 will automatically be loaded into memory. 


How the Routine Works 

When the BASIC subroutine at line 210 is called, the values of 
LNG and TYP are stored in zero page for access by the ma- 
chine language routine. Next, the SYS statement causes the 
program to execute the machine language code at 49152 
($C000). The machine language waits for a key to be pressed. 
When it reads a key, it first checks the key against a table of 
values to see whether it needs to execute a function (such as 
INSerT, CRSR right, and so on). If the keypress is not a func- 
tion, the value is tested to insure that it’s in the range of print- 
able characters. If the key is out of range, the routine goes 
back to fetch another keypress. If the value is within range, 
the routine displays the keypress on the screen and stores the 
ASCII value of the key in the input buffer. This process con- 
tinues until the RETURN key is pressed. 

Now the routine transfers the data to a special buffer and 
sets up a “fake’” BASIC line in high memory. The CHRGET 
routine is vectored to point to the pseudo-BASIC statement, 
and the LET routine in BASIC ROM is executed, equating the 
variable with the input data. Finally, the CHRGET routine is 
revectored to its original address in the BASIC program, and 
the program returns from the SYS. 
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Execution continues with the IF statement. If no data has 
been entered before the RETURN key is pressed, the status 
variable (ST) will be set to 1. Otherwise, ST will have a value 
of 0. If ST is set to 1, both variables are cleared, and the pro- 
gram returns from the GOSUB call empty-handed. When the 
condition is false, the proper variable will hold the input data. 


Wrapping It Up 

This routine behaves differently, depending on which charac- 
ter set you're using. When set 1 is in use, the routine accepts 
numbers, punctuation characters, and uppercase letters as 
valid characters. This prevents the user from entering graphics 
characters as input data. If set 2 is being used, the valid char- 
acters are numbers, punctuation characters, and uppercase or 
lowercase letters. The field size can be from 1 to 75 characters. 
Characters which would be interpreted as delimiters by the 
INPUT statement (such as commas) are accepted as valid data 
in the string input mode. The sign characters, negative and 
positive, are accepted as valid data in numeric input mode. 
CRSR-up/CRSR-down and CLR/HOME are not active during 
either input mode. 

You can use the routine with any screen unless it’s lo- 
cated under BASIC or Kernal ROM. The screen address is fig- 
ured by the routine each time it’s called, so you can switch 
screens in your program without any problem. By using this 
controlled input routine, you can prevent unwanted results 
from occurring at input points and make your programs less 
reliant on the user “playing by the rules.” 


Program 1. Controlled Keyboard Input 


For mistake-proof program entry, use ‘The Automatic Proofreader,’’ Appendix B, to type in 
this program. 


HR 108 PRINT"{CLR}READING DATA STATEMENTS..." 

KR 118 FORB=49152T049604 : READD: POKEB, D: CK=CK+D: NEX 
T 

KG 12@ IFCK<>57716THEN PRINT"ERROR IN DATA STATEME 
NTS":END 

JG 138 PNS="INPUT.OBJ":FORJ=1TOLEN(PNS) :POKE764+J, 
ASC(MIDS(PNS,J,1)):NEXTJ 

ME 148 PRINT" {DOWN} {RVS}D{OFF}ISK OR {RVS}T{OFF}AP 
E? ";:DEVICE=8 

JJ 158 GETAS: IFAS="T"THENDEVICE=1 :GOTO17@ 

RE 168 IFAS<>"D"THEN1L5@ 

DK 178 PRINTAS: POKE78@,15:POKE781, DEVICE: POKE782, 2 
55:SYS65466 


51 


HP 


QS 


CHAPTER 2 


POKE789, LEN(PNS ) : POKE781,193:POKE782,2:SYS6 


5469 


BA=49152 :HI=INT(BA/256 ) : LO=BA~HI * 256 : POKE25 


1,LO: 


POKE252,HI 


EA=49604 :HI=INT(EA/256) :LO=EA-HI*256+1:POKE 
788, 251:POKE781, LO: POKE782,HI 
PRINT"SAVING ML VERSION OF "PNS$:SYS65496 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


56,32, 248, 255,132,139,173,136 
2,168,169,8,202,48,8, 24 
195,408,144, 248, 200,208,245,24 
191,139,144,1,2809,133,139,133 
167,132,140,152,24,185,212,133 
168,173,24,208,41,2,141,195 
193,248,4,169,127,208,2,169 
63,141,249,192,162,87,169, 32 
157,0,2,262,16,258,232,134 
141,164,141,177,139,9,128,145 
139,32,228,255, 249,251,72,164 
141,177,139,41,127,145,139,194 
162,4,221,29,193,249,5, 282 

16, 248,48, 29,224,4, 288, 3 
76,42,193,138,18,170,189, 34 
193,141,132,192,232,189,34,193 
141,133,192,32,0,16,76, 73 
192,201,32,144,188,2801,96,144 
8,201,193,144,188, 201,219,176 
176,164,141,196,142,248,170,174 
195,193,298,7,201,96,144,3 

596, 233,128,153,98,2,32,235 
192,173,134,2,145,167,238,141 
76, 73,192,166,141,228,142,248 
136, 230,141,96,166,141, 249,129 
198,141,96,164,141,298,1,96 
198,141,185,98,2,136,153,9 
2,32,235,192,200,200,196,142 
144,248,169, 32,153,0,2,32 
235,192,96,201,193,144,5,41 
127,76,258,192,2801,65,144,2 
41,63,145,139,96,164,141,196 
142,208,1,96,169,32,72,185 
0,2,170,194,153,0,2,32 
235,192,200,196,142,249,5,138 
72,76,7,193,96,29,157,148 
20,13,187,192,196,192,253,192 
283,192,169,0,133,144,162,79 
189,0,2,201,32,208,6, 282 
16,246, 230,144,96, 232,134,142 
165,143, 208,13,162,183,169,193 
142,94,193,148,95,193,76,91 
193,162,188,168,193,142,94,193 
149,95,193,168,09,185,0,16 
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DATA 240,7,153,52,3,200,76,93 

DATA 193,162,0,189,0,2,153,52 

DATA 3,200,232,228,142,298,244,165 
DATA 143, 208,9,169,34,153,52,3 

DATA 200,76,144,193,169, 34,153,52 
DATA 3,200,169,41,153,52,3, 200 

DATA 169,80,153,52,3,165,122,141 

DATA 181,193,165,123,141,182,193,169 
DATA 52,133,122,169,3,133,123,32 
DATA 165,169,173,181,193,133,122,173 
DATA 182,193,133,123,96,0,0,84 

DATA 36,178, 34,0,84,49,178,197 

DATA 40,34,9,0,170 


Program 2. Demo 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


QX 1088 
CM 1190 
HQ 120 
DA 130 


BF 149 
GK 159 
CC 169 


RC 170 
JX 1890 
SH 198 
MB 200 
ES 219 


CD 220 


IFA=@THENA=1 : LOAD" INPUT.OBJ",8,1 

PRINT" {CLR}{3 DOWN}ENTER YOUR NAME- "; 
LNG=22 : TYP= : GOSUB219 

PRINT: PRINTTS:PRINT"{2 DOWN}ENTER THE PRICE 
-S"> 

LNG=5 : TYP=1 :GOSUB21@ 

IFT1>99.99THEN149 

PRINT: PRINTT1:PRINT: PRINT" {DOWN}MORE (Y/N)? 


WAIT198,1:GETKS 
IFKS="Y"THEN11@ 
IFKS<>"N"THEN17@ 


END 
POKE142, LNG: POKE143, TYP: SYS49152:IF(ST AND 
{SPACE }1)THENTS="":T1=@ 

RETURN 
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Blink Mode on Commodore 
Machines 





David Sanner 


Here’s a way to bring your color screen to life. Two 
demonstration programs are included along with a good 
tutorial and lots of programming explanations and tips. 

For the Commodore 64 and 128 in 64 mode. 


Have you ever seen the Apple II’s ‘‘video blink mode” and 
wished for a similar feature on your Commodore computer? 
Here’s a program that provides that feature for the Commo- 
dore 64 and 128 in 64 mode. Let’s look at what “Blink Mode” 
can do. 

The basic purpose of the program is to allow text charac- 
ters to blink (switch) between two different colors at varying 
speeds. For instance, you can tell Blink Mode to blink the 
color white to the color black. Thereafter, any characters 
printed to the text screen in white will alternate between 
white and black. You aren’t, of course, restricted to just white 
and black; you can get 8 colors blinking to 8 different colors, 
and, in special cases, you can get all 16 colors blinking to dif- 
ferent colors. 


The USR Interface 

In this program, the USR function controls what Blink Mode 
does for you. If you’re not familiar with this powerful, but lit- 
tle used instruction, here’s a bit of background. Two bytes in 
memory are reserved for use with the USR function. These 
bytes hold the address (in standard low-byte/high-byte for- 
mat) of the location in memory to which the computer will go 
when USR is executed. You have to make this address point to 
the location of Blink Mode with the following POKES: 


POKE 785,0: REM LOW BYTE OF $C000 
POKE 786,192: REM HIGH BYTE $C000 


As you can see, Blink Mode is located at $C000. The first 
POKE sets up the low byte of this address, which is $00. The 
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second POKE sets up the high byte of the address ($C0 is 192 
in decimal, $3C is 60, and $1C is 28). Once these values are in 
place, the computer will jump to Blink Mode every time you 
use the USR function. 

Controlling an interrupt-driven routine like Blink Mode 
can often be tricky business. I have tried to minimize the 
amount of interaction you need to get it to do interesting 
things—which is why I chose to use the USR function. It not 
only calls up a machine language routine (like the SYS state- 
ment), but it also lets you send a value to the routine quite 
easily (on the 64, SYS doesn’t allow you to send a value to the 
routine). 

Additionally, the USR function returns a value to the pro- 
gram. This means that Blink Mode can tell you whether your 
command is okay by simply passing back different numbers. If 
everything has gone according to plan, Blink Mode will pass 
back a value of 1. If something has gone awry, it will return a 
0. This is helpful should you ever want to test whether the 
command worked in your program. 

Because the USR function returns a value, you must as- 
sign the value to a variable. This means you must use the USR 
function in the following manner: 


X = USR(data) 


In the above example, the important part is data , the 
number sent to Blink Mode. The data to be passed to the rou- 
tine via a USR function must be enclosed within the parenthe- 
ses, as in X=USR(16384). Once Blink Mode has set things up, 
it returns a value to your BASIC program; the variable X will 
hold the value that the USR function passes back. 


How to Use Blink Mode 

There are seven commands that you can pass to Blink Mode 
via the USR function. In order to pass a command to Blink 
Mode, you must send a specific number via the USR function. 
The number depends on what command you send. For in- 
stance, to send the Enable Blink Mode command, you must 
call Blink Mode like this: X=USR (4096). Whenever I use 
Blink Mode in a BASIC program, I set variables to equal the 
command numbers, as with EB=4096. Then I can use them in 
the USR function: X=USR(EB). Some of the commands re- 
quire that you send data as well as the command number. 
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Here are the commands for Blink Mode. 

Enable Blink Mode (4096). Every 1/60 second, the com- 
puter interrupts itself, saves what it was doing, and jumps to a 
special location in memory. Normally, this location is the start 
of some operating system routines that perform necessary 
tasks like checking the keyboard and advancing the jiffy clock. 
When Blink Mode has been enabled, however, this location 
points to the part of Blink Mode that takes care of blinking the 
colors. After Blink Mode has finished running, it jumps to the 
normal interrupt location. This kind of program is often 
known as an interrupt wedge. The Enable command must be 
sent if you want to see the colors blink. You can send it with 
X=USR(4096). 

Disable Blink Mode (8192). This command instantly 
stops Blink Mode from being an interrupt wedge. You can 
send this command by X=USR(8192). 

Blink Color (1024). Use this command when you want to 
make a specific color blink to another color. Just add the num- 
ber of the color you want to blink to the command number 
(1024). Then add 16 times the number of the color you want 
to blink to. For example, if you wanted the color white (color 
1) to blink to black (color 0), you would send this command: 


X = USR(1024 + (1670) + 1) 


(Note that color numbers range from 0 through 15.) The origi- 
nal color and the color you want it to blink to should always 
be different. 

Stop Color From Blinking (2048). If you want to stop a 
specific color from blinking, send this command. Just add the 
number of the color you want to stop blinking to the com- 
mand number (2048). For instance, if you wanted to stop cyan 
from blinking to some other color, you would send X=USR 
(2048 +3). Three is the color number for cyan. 

It’s important to note that you should turn off only a color 
that has been set to blink, not the color it is blinking to. In 
other words, if you tell cyan to blink to red, you should tell 
cyan to stop blinking. This command will wait until all charac- 
ters typed in the requested color have returned to that color 
before stopping them from blinking. For example, if green is 
told to blink to black, and a “stop green from blinking”’ com- 
mand is sent, Blink Mode will wait until black characters have 
turned back to green before stopping green from blinking. 
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Set Delay (16384). This command allows you to set the 
time it takes to blink between two colors. This time ranges from 
1/60 second to about four and a half minutes. (Note that all 
blinking colors will blink at the same rate.) You send this com- 
mand by passing the command number (16384) plus the time 
value. Time values range from 1, which sets the time delay to 
about 1/60 second, to 16383, which sets the delay to about 
16383 /60 seconds (four and a half minutes). Every time you 
add one to the time value, you add 1/60 second to the delay. 
The number 60 will make the blink time about one second. 

You send the command like this: X=USR (16384-+ 2). 
This call will set the time between color changes to 2/60 sec- 
ond. Note that the lower this number, the faster the blink, but 
the slower everything else—like your BASIC program. The 
reason is that Blink Mode must update the entire color screen 
whenever the time value you have set runs out. If the time 
value is very small, you'll notice things slowing down because 
Blink Mode is running more frequently. 

Return Value (512). Normally, when you’re using Blink 
Mode, the function X=USR will make X either 1 or 0, de- 
pending on whether or not Blink Mode understands the in- 
struction. However, you can also pass back other values. Let’s 
say, at some point in your program, that you want to know 
which color blue has been blinking to. By using the Return 
Value command, you can determine this. Simply send the 
command number (512), plus the number of the color to be 
checked. For instance, the function X=USR(512+6) will as- 
sign to X the color number that blue has been told to blink to. 
Note that if a color is not blinking to another color it will re- 
turn itself. For example, if green is not blinking to another 
color, X=USR(512+5) should return 5, the number for green. 

Reset All Colors (256). There will be times when you'll 
be experimenting with colors, and things just get out of hand. 
If that happens, the Reset All Colors command will reset all 
colors to blink to themselves, thus making it appear that none 
of them is blinking. To use this command, send the command 
number (256) to Blink Mode. Like the Stop Blinking com- 
mand, this command will wait until the colors have returned 
to their original values before resetting them. 
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Using. Blink Mode in Your Own Programs 

There are a few important items to remember when you write 
programs to use with Blink Mode. First, each color can blink 
to only one other color. Second, each color must blink to a 
color that no other color is blinking to. For instance, if you 
have green blinking to red, you should not try to have white 
blinking to red also. If you do this, you'll get strange (but 
often interesting) results. 

Always reset a color from blinking before you make it 
blink to another color. Because Blink Mode waits until the 
color has returned to its original value, however, this com- 
mand may take awhile, depending on the time delay between 
blinks. One way to get around this problem is to use the fol- 
lowing lines: 


10 X = USR (2048+ 6): REM STOP BLUE FROM BLINKNG 

20 X = USR (16384+1): REM SET DELAY TO MIN. 

30 X = USR (512-6): IF X<>6 THEN 30: REM WAIT 

40 X = USR (16384+ 600): REM RESET ORIGINAL BLINK 
DELAY 


Let’s assume that you’ve set the time delay to a very high 
value (say, ten seconds). When you send the “stop blue from 
blinking’” command, it could take up to ten seconds for blue 
to stop blinking. (For example, if Blink Mode has just changed 
all the blue to red and you send this command, it will be ten 
seconds before Blink Mode can change all the red back to 
blue. Once it has done that, it will stop blue from blinking to 
red.) So, in order to speed things up a bit, I set the time delay 
to a minimum; this stops blue from blinking almost immedi- 
ately. Line 30 checks the value of the color that blue is blink- 
ing to. If blue has been reset, it will be blinking to blue. If it 
hasn’t been reset, we simply keep running line 30 until it has 
been. Line 40 resets the time delay to its original value. (You 
can also use these BASIC lines with the Reset All Colors 
command.) 

If you don’t care whether the color gets reset (to its origi- 
nal color) before it stops blinking, you can use the following 
lines: 


10 X = USR (1024+ (16*6) +6): REM BLINK BLUE TO BLUE 
20 X = USR (1024+ (16*3)+3): REM BLINK CYAN TO CYAN 


In this example, we assume that blue has been told to 
blink to cyan. What these lines do is to reset the colors man- 
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ually by telling them to blink to themselves. The benefit of 
this sequence of commands is that the action happens immedi- 
ately: there’s no waiting for the time delay. Unfortunately, 
there’s no guarantee that the cyan will have blinked back to 
blue when you send this command. 


A Little More Advanced 

This section has been saved for last because it deals with more 
complex ideas and involves a little more programming. Nor- 
mally, you can get 8 colors on the screen blinking to 8 other 
colors with no problem. This may not always work right if 
you try to blink all 16 colors or try to blink a color to a color 
that has been told to blink (for instance, if red has been told to 
blink to white, and you tell yellow to blink to red). 

Since there’s no way for Blink Mode to know whether the 
characters on the screen are blinking to a color or whether 
they started out as that color, Blink Mode will treat them as 
the same color. Using the example from the start of this sec- 
tion, you may try to type something in red. As Blink Mode 
runs in the background, it has no way of knowing that the red 
you have typed on the screen is not the red that it has just 
changed the yellow to. So, it will just change all red back to 
yellow, and you'll never see white. 

There is, however, a way to get around this problem. It 
involves more planning and, as you'll see, cannot be used “on 
the fly.” Here’s what you need to do: Disable Blink Mode to 
prevent it from trying to change any colors. Set up any colors 
that you want to blink. Then, any text that you have should 
be written to the screen in the original color. Finally, simply 
enable Blink Mode. The colors will begin to blink back and 
forth. 

I call this technique “double-blink’” because two text lines 
will trade colors back and forth. Using this method can pro- 
vide quite interesting effects. As an example, let’s say you 
want to have two lines of text blink back and forth between 
white and black. You follow the above guidelines, and write 
one text line in black and the other in white. You set up 
everything else and then enable Blink Mode. For one second 
(or whatever time delay you have prescribed) the first line is 
black and the second is white; during the next second the col- 
ors switch, and so on. This is a nice effect, but it must be con- 
trolled. For example, if you try to type something in white 


59 


CHAPTER 2 


now, some of the text you type will be out of sync with the 
rest that you type. 

If all this seems very complex, don’t worry. As with most 
other things, experimentation is the best way to discover. The 
two programs included here demonstrate some of the things 
you can do with Blink Mode. Program 2 is a basic demonstra- 
tion of Blink Mode. Program 3 demonstrates the technique of 
double-blink. Each of these demos automatically loads and runs 
the machine language portion of the main Blink Mode pro- 
gram (Program 1)—provided that the main program has been 
saved as BLINKOBJ on the same disk. If you’ve saved the 
main program with another filename, be sure to change it in 
line 99 of Programs 2 and 3. If you’re using tape, change the 
load instruction in this same line to LOAD “BLINKOBJ” ,1,1. 

Incidentally, I’ve used Blink Mode with a 300-baud mo- 
dem and terminal program with no problem. The time delay 
was set to about 10. 


Program 1. Blink Mode 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


XA 1808 FORI=49152T049506: READA: POKEIL,A:X=X+A:NEXT 

XG 118 IFX<>36438THENPRINT"ERROR IN DATA.":STOP 

CG 128 PNS="BLINKOBJ" : FORJ=1TOLEN(PNS) : POKE7@4+J,A 
SC(MIDS(PNS,J,1)):NEXTJ 

SP 138 PRINT" {DOWN} {RVS}D{OFF}ISK OR {RVS}T{OFF}AP 
E? "::DEVICE=8 

JP 148 GETAS:IFAS="T"THENDEVICE=1 :GOTO16Q 

XG 15@ IFAS<>"D"THEN1L4@ 

QG 168 PRINTAS : POKE78@,15:POKE781, DEVICE: POKE782, 2 
55:SYS65466 

PE 170 POKE78@,LEN(PNS) : POKE781,193:POKE782,2:SYS6 
5469 

XP 180 BA=49152:HI=INT(BA/256) :LO=BA-(HI*256) :POKE 
251,L0:POKE252,HI 

QQ 198 EA=49507 :HI=INT(EA/256) :LO=EA-(HI*256)+1:PO 
KE78@,251:POKE781,LO: POKE782,HI 

MK 208 PRINT"{DOWN}SAVING ML VERSION OF ";PNS:SYS6 
5496 

CS 218 DATA 32,178,177,120,42,42,176,21,42,176, 32 

QD 228 DATA 42,176,42,42,176,87,42,176,54,42,176 

MA 238 DATA 101,42,176,1988,168,144,121,74,74,141 

GM 248 DATA 94,193,148,93,193,238,97,193,56,176 

QJ 258 DATA 105,169,234,141,21,3,169,49,141,29,3 

KF 268 DATA 56,176,92,169,192,141,21,3,169,156,141 

RX 2706 DATA 290,3,169,26,141,99,193,56,176,74,152 

SP 288 DATA 41,15,170,152,41,248,74,74, 74, 74,157 
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42,193,157,74,193,178,152,41,15,157, 26 
193,157,58,193,56,176,44,152,41,15,178 
168,189,42,193,178,152,153, 74,193,138 
157,58,193,56,176,22,152,41,15,179,188 
42,193,56,176,16,169,15,152,153,74,193 
153,58,193,136,16,246,230,254,169,1 
169,0,88,198,5,8,173,97,193, 288,198, 286 
95,193, 298,113,286, 96,193,16,198,48, 3 
296,97,193,173,94,193,141,96,193,173 
93,193,141,95,193,169,9,133,251,169 
219,133,252,169,26,77,98,193,141,90 
193,2808,2,169,42,141,259,192,141,19 
193,173,98,193, 208, 23,165,254, 249,19 
198, 254,160,15,185, 58,193,153, 26,193 
185, 74,193,153,42,193,136,16,241,1698,@ 
177,251,41,15,1709,189, 26,193,145, 251 
169,4,133,253,1698,232,177,251,41,15,17 


189, 26,193,145,251,136, 208, 243,198,252 
198,253,208, 237,76,49,234,0,1,2,3,4,5, 


7,8,9,190,11,12,13,14,15,9,1,2,3,4,5,6, 
8,9,18,11,12,13,14,15,0,1,2,3,4,5,6,7, 
9,18,11,12,13,14,15,9,1,2,3,4,5,6,/,8, 


19,11,12,13,14,15,9,9,1,9,9,9,9,0,0 


Program 2. Blink Mode—Demo 1 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


99 IFA=@THENA=1:LOAD"BLINKOBJ",8,1 


V1=785 :V2=786 :CO=646 :HI=192 
POKEV1 ,90:POKEV2,HI 
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REM 


SD=16384: REM ** SET DELAY FLAG 

DB=8192 : REM ** DISABLE BLINK 

EB=4996 : REM ** ENABLE BLINK 

SB=2048 : REM ** STOP COLOR FROM BLINKING 
MB=1024 : REM ** MAKE COLOR START BLINKING 
VB=512{2 SPACES}: REM ** RETURN VALUE OF BL 
INKING COLOR 

RC=256{2 SPACES}: REM ** RESET ALL COLORS-N 
O BLINKING 

REM *** NOW WE DEMONSTRATE BLINK 
RDS="-{BLK}**** RED ****{BLU}-":GRS="-{ BLK} 
*** GREEN ***{BLU}-":PRINT"{CLR}" 7 


POKE 


53281,8:POKE 53280,8:REM MAKE BACKGROU 


ND BLACK 
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270 


280 
290 
380 


318 
320 


330 
349 


358 
368 
378 


380 
396 


4900 
410 
426 


430 


446 
45¢ 


460 


476 
488 
496 
580 
519 
520 
530 
5468 


550 
5608 
578 


580 
596 


600 
619 


X=USR(EB):IF X=@ THEN53@: REM ** ENABLE BLI 
NKMODE 

CS=RDS 

GOSUB45@ 

X=USR(MB+(16*2)+8):REM ** BLACK BLINKS TO R 
ED 

X=USR(MB+(16*3)+1):REM * WHITE BLINKS TO CY 

AN 

X=USR(MB+(16*7)+4):REM ** MAKE PURPLE BLINK 
TO YELLOW 

X=USR(SD+14): REM ** SET BLINK SPEED 

PRINT: PRINT" {PUR}{3 SPACES}*** WARNING *** 
{SPACE }" 

PRINT: PRINT" {WHT}HIT A KEY TO CHANGE" 

GOSUB53@ 

X=USR(SB+@):REM **{2 SPACES}STOP BLACK FROM 
BLINKING TO RED 

X=USR(VB+@):IF X<>@ THEN38@:REM ** WAIT UNT 
IL BLACK RESET 

X=USR(MB+(16*5)+@):REM ** NOW BLINK BLACK T 

O GREEN 

CS=GRS :GOSUB45@ 

GOSUB530@ 

X=USR(SB+@):REM **{2 SPACES}STOP BLACK FROM 
BLINKING TO GREEN 

X=USR(VB+@):IF X<>@ THEN43@:REM ** WAIT UNT 
IL BLACK RESET 

GOTO28@ 

PRINT" {HOME} {WHT}ATTENTION — ATTENTION": PRI 

NT 

PRINT" {BLK}{3 SPACES}CONDITION{2 SPACES }COD 

E iy 

PRINT" {BLU} {3 SPACES }U***# eee RRRRKT 

PRINT" {BLU}{3 SPACES}-[13 SPACES}- " 

PRINT"{3 SPACES}"CS — 7 

PRINT" {BLU}{3 SPACES}-{13 SPACES}- " 

PRINT" {BLU} {3 SPACES} J*##*# eee KKEERK 
RETURN 

TX=10:TY=20 

GET AS:TY=TY-1:IF TY<@ THEN TY=20:X=USR(SD+ 

TX) :TX=TX-1:IF TX=0 THEN TX=1 

CTS="_";:IF TX/2=INT(TX/2)THEN CT$="Q" 
PRINT" {HOME}{16 DOWN}" 

X=USR(VB+@):REM ** NOW FIND THE COLOR BLACK 
IS BLINKING TO 

POKECO,X:REM ** CHANGE CURRENT CHARACTER CO 

LOR TO BLINKING COLOR 

PRINTTAB(TY);CTS; 

IF AS=""" THEN54@ 

X=USR(SD+14) : RETURN 
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Program 3. Blink Mode—Demo 2 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


99 IFA=Q8THENA=1 :LOAD"BLINKOBJ",8,1 


BA 
HF 
MB 
QH 
DR 


AJ 
JF 
KQ 
MD 
QE 
PE 
ME 
EK 


DP 


PP 
MF 


GB 
DD 


119 
120 
149 
15@ 


169 
17 
19 
200 
210 
220 
230 
240 


250 


260 
270 


280 
290 


320 
330 
348 


358 
368 
376 
380 


399 
400 
419 


420 


NU=15:REM NU=7 FOR VIC 

V1=785 :V2=786 :CO=646 :HI=192 

POKEV1 ,0:POKEV2,HI 

REM ** CHANGE THESE VALUES TO CHANGE THE BL 
INK COLORS 

DIMCT (NU) 

FORI=O@TONU :CT (I )=NU-I:NEXT 

SD=16384: REM ** SET DELAY FLAG 


DB=8192 : REM ** DISABLE BLINK 
EB=4896 : REM ** ENABLE BLINK 
SB=2048 : REM ** STOP COLOR FROM BLINKING 
MB=1024 : REM ** ‘MAKE COLOR START BLINKING 


VB=512{2 SPACES}: REM ** RETURN VALUE OF BL 
INKING COLOR 

RC=256{2 SPACES}: REM ** RESET ALL COLORS-N 

NO BLINKING 

REM *** NOW WE DEMONSTRATE BLINK 

X=USR(DB): REM ** MUST DISABLE BLINKMODE FI 
RST 

PRINT" {CLR}" 

POKE5328@,8:POKE53281,8:REM MAKE BACKGROUND 
BLACK 

FOR L=@ TO NU: REM ** SET ALL THE COLORS 
CL=CT (L) 

X=USR(MB+(CL*16)+L): REM ** SET THE COLOR T 

O BLINK TO 

POKECO,L:REM ** CHANGE CURRENT COLOR TO X 
PRINT"BLINKING FROM"L"TO"CL 

NEXT L 

X=USR(SD+68): REM * SET BLINK FOR 1 SECOND 


PRINT:PRINT"HIT A KEY TO START" 
GETAS: IFAS="" THEN4@9 
X=USR(EB) 


END 
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The Printmaker 


Manu Gambhir 


This clever program converts a screen you design with 
keyboard graphics into a BASIC routine—and appends it to 
your program. For the Commodore 64 and 128 in 64 mode. 





Wouldn't it be nice if you could spend your time designing a 
screen and not have to worry about writing the program to 
produce it? ““Printmaker’’ lets you do just that. It automatically 
creates code in the form of PRINT statements from whatever 
is on the screen and appends these lines to the program in 
memory. The PRINT statements include color control codes 
and REVERSE ON/OFF codes to reproduce the screen exactly 
as it was created. 

Printmaker is very easy to use. It’s written in machine 
language, but as a BASIC loader. There is only one rule to fol- 
low: The top line of the screen may not be used. 


Designing a Screen 

Type in Printmaker; be sure to save a copy before running it 
the first time because the BASIC loader erases itself from 
memory. To use it, just load it and run. The program is POKEd 
into a safe location (49152), out of the way of BASIC. Now 
you can begin writing your BASIC program, or you can load a 
BASIC program to which you wish to append your screen. 

At this point, you’re ready to create your design on the 
screen by using keyboard characters. All characters—numbers, 
letters, graphics—are legal. Colors are available, too. To move 
about the screen, use the cursor keys. (If you mistakenly hit 
the RETURN key, the computer will attempt to enter the cur- 
rent line as a BASIC statement.) 

The entire screen, apart from the first line, will be en- 
coded in PRINT statements. Since the last character position 
on the screen, the bottom right location, is included, the 
screen (and your display) will scroll up one line when you run 
the BASIC program. If you wish to avoid this effect, delete the 
last character (even if it’s a space) in the final PRINT state- 
ment created by Printmaker. If your screen design calls for a 
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character in this position, it can be POKEd there in the BASIC 
program following the final PRINT statement. 

When you've completed your design, press the CLR/ 
HOME key to move the cursor to the upper left corner of the 
screen. Then type 


SYS 49152,] 


where I is the increment by which you want the lines num- 
bered. Any number from 1 through 255 is allowed. Printmaker 
will append the new lines automatically to your program. For 
example, if your BASIC program ends with line 850, and you 
design a screen with Printmaker and SYS with an increment 
of 10, the appended code will begin with line 860 and proceed 
with 870, 880, and so on. 

When you have entered the SYS, the cursor reappears 
and the screen (minus the top line) is appended to your pro- 
gram in the form of PRINT statements. Type LIST to see the 
results. 


Printmaker 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


PQ 100 FORI=49152T049649: READA: X=X+A: POKEI,A:NEXT 

MG 1198 IFX<>55761THENPRINT"ERROR IN DATA STATEMENT 
S.":STOP 

SD 128 NEW 

KE 1398 DATA 32,155,183,142,85,2,32,228,193,32 

HK 148 DATA 228,193,32,228,193,32,148,193,168,193 

RQ 158 DATA 169,109,32,38,171,169,0,141,84,2 

HF 168 DATA 169,40,133,253,169,216,133,254,169,255 

BM 178 DATA 141,88,2,169,40,133,251,169,4,133 

PK 188 DATA 252,32,0,193,160,0,169,1,145,45 

RF 198 DATA 32,0,193,145,45,32,0,193,165,20 

GF 208 DATA 145,45,32,0,193,165,21,145,45,24 

XJ 210 DATA 165,28,199,85,2,133,290,144,2,23@ 

KJ 228 DATA 21,32,9,193,168,8,140,86,2,169 

RH 238 DATA 153,145,45,32,9,193,169,34,145,45 

XH 248 DATA 168,98,177,251,201,32,248,25,201,96 

QC 258 DATA 248,21,177,253,41,15,205, 88,2, 240 

RM 268 DATA 12,141,88,2,178,189,93,193,32,@0 

JJ 278 DATA 193,145,45,177,251,32,7,193,32,0 

EH 288 DATA 193,145,45,238,251,208,2,230,252, 230 

SA 298 DATA 253, 208,2,230,254,165,252,201,7,2988 

HQ 300 DATA 6,165,251,201,232,249,37,238,86,2 

RD 318 DATA 173,86,2,2981,25,208,179,32,0,193 

JK 328 DATA 169,34,169,0,145,45,32,0,193,169 

FD 338 DATA 59,145,45,32,08,193,169,8,168,145 


65 


66 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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45,76,51,192,1608,0,32,8,193,169 
34,145,45,32,0,193,169,59,145,45 
32,8,193,169,9,145,45,32,8,193 
145,45,32,8,193,145,45, 32,909,193 
32,51,165,188,2,3,230,45,208,2 
230,46,96,72,16,22,173,84,2, 288 
36,169,1,141,84,2,32,0,193,169 
18,168,0,145,45,76,51,193,173, 84 
2,240,14,169,0,141,84,2,32,9 
193,169,146,160,0,145,45,184,41,127 
201,34,208,3,169,39,96,201,32,176 
4,24,105,64,96,201,64,176,1,96 
261,96,176,4,24,1985,32,96,201,128 
176,4,24,105,64,96,169,63,96,144 
5,28,159,156,38,31,158,129,149,15@ 
151,152,153,154,155,19,18,80,82, 73 
78,84,77,65,75,69,82,146, 32, 32 
32,32,32,13,0,234,234, 234,234,234 
234,234,234, 234,234,234,1609,0,177,43 
208,15,200,177,43,208,18,173,85,2 
133,20,169,8,133,21,96,165,43,133 
251,165,44,133,252,169,9,177,251,133 
253,2080,177,251,133,254,168,8,177,253 
208, 31,200,177,253,208,26,168,2,177 
251,133, 28,208,177, 251,133, 21,24,165 
20,199,85,2,133,28,165,21,195,90 
133,21,96,165, 253,133,251,165, 254,133 
252,76,169,193,56,165,45, 233,1,133 
45,165, 46, 233,0,133,46,96 


Screen Customizer 





Christian Elfers 


If you prefer certain screen colors and use various machine 
language programs during programming sessions, here’s a 
way to keep the colors from being disabled. For the 
Commodore 64 and 128 in 64 mode. 


Many programmers have individual preferences for certain 
background and border colors and use them while program- 
ming. Unfortunately, whenever RUN /STOP-RESTORE is 
pressed, the computer resets these colors. Most of the time it’s 
too much of a nuisance to rePOKE the values for these colors. 
Also, RUN/STOP-RESTORE disables some machine language 
programs, such as “The Automatic Proofreader.” In order to 
reenable the program, the appropriate SYS must be entered. 
During a programming session, pressing RUN /STOP-RESTORE 
and repeatedly resetting screen colors and reenabling pro- 
grams gets tiresome. 


One-Key Default 

“Screen Customizer” will fix these problems. Type in the pro- 
gram and save it to tape or disk. From now on, before you be- 
gin a programming session, load and run Screen Customizer. 
Whenever you press the RESTORE key, the screen colors will 
be set to a black border, gray background, white cursor, and 
white characters. These colors can be changed by POKEing 
1020 with the desired border color, 1021 with the screen color, 
1022 with the cursor color, and 1023 with the character color. 
(Colors are numbered 0-15 and correspond to the colors avail- 
able on the top row of the keyboard.) You can turn off Screen 
Customizer by typing POKE32776,0. To turn it back on, type 
POKE32776,48. 

Screen Customizer also prevents most machine language 
programs from becoming disabled. Note to tape users: You 
must disable the Automatic Proofreader before a tape save by 
typing SYS8; typing RUN/STOP-RESTORE will no longer 
disable the Proofreader. Location 8 is used because it almost 
always contains a zero. A SYS to any location containing a 
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zero resets the computer like RUN/STOP-RESTORE without 
Screen Customizer activated. 

Remember that every time you load in a new machine 
language program, such as the Proofreader or the DOS 
Wedge, you must tell Screen Customizer you did so by typing 
SYS 32785. Otherwise, the program will be disabled when 
RUN/STOP-RESTORE is pressed. This is necessary only for 
programs that are normally disabled by RUN/STOP-—RESTORE. 


How It Works 

Here’s how the program works. It takes advantage of the 
autostart feature normally used for cartridges. When the com- 
puter is first turned on, it checks for a cartridge by looking for 
specific data at locations 32772-32776. If these locations con- 
tain the ASCII values of the characters CBM80, the computer 
will jump to whatever address is pointed to by locations 
32768-32769 in low-byte/high-byte format. Locations 32770- 
32771 must also contain the same address. The computer also 
checks for this combination during a warm start (SYS64738) or 
when you press RESTORE. I changed these locations so that 
when RESTORE is pressed the computer jumps to Screen 
Customizer. 

When Screen Customizer is activated for the first time, it 
transfers the values in locations 768-819 into a temporary 
storage area. These locations contain important vectors. They 
tell the computer what to do every 1/60 second, or when RE- 
TURN is pressed, or when the commands CLOSE, LIST, 
LOAD, OPEN, and SAVE are entered. 

Some machine language programs change the values in 
these locations to point to a customized routine. Normally, 
whenever RUN/STOP-RESTORE is pressed, these locations 
are reset to their normal values, thus disabling the customized 
routines. But Screen Customizer transfers the values from the 
temporary storage area back to locations 768-819, thus pre- 
venting most machine language programs from being disabled. 
The program then sets the screen colors and returns to BASIC. 

In addition, since the RESTORE key causes a non- 
maskable interrupt (NMI), pressing RESTORE with Screen 
Customizer activated enables you to recover from keyboard 
lock-up bugs without having to turn the computer off and on 
to regain control. 
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Screen Customizer 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


ME 
XA 
EP 


PM 


160 


119 


129 


132 


149 


158 


POKE56,128:CLR 
FORG=32768T032876 : READA: C=C+A: POKEG ,A:NEXT 
IFC<>13765THENPRINT"{CLR}TYPING ERROR IN LIN 
ES 188-158.":STOP 
AS="{8 SPACES}":PRINT"{CLR}{DOWN}{6 SPACES}P 
RESS {RVS}RESTORE{OFF} TO ACTIVATE." 
PRINT" {2 DOWN}"AS"POKE192@,<BORDER COLOR>" 
PRINT AS"POKE19@21,<SCREEN COLOR>" 
PRINT AS"POKE1@22, <CURSOR COLOR>" 
PRINT"{2 DOWN}TYPE {RVS}SYS 32785{OFF} TO RE 
AD NEW VECTOR VALUES" 
DATA 11,128,11,128,195,194,205,56,48,161,12 
8,32,17,128,76,29,128,168 
DATA 204,185,52,2,153,128,128, 200, 208,247,9 
6,169,8,141,252,3,169,11 
DATA 141,253,3,169,1,141,254,3,141,255,3,16 
9,58,141,8,128,141,2,128 
DATA 198,20,3,32,129,255,32,138,255,168, 204 
,185,128,128,153,52,2, 282 
DATA 208, 247,173,255,3,141,33,2808,173,252,3 
,141,32,208,173,254,3,141 
DATA 134,2,169,147, 32,219, 255,173, 253,3,141 
,33,208,162,255, 76,139,227 
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Daan Deenik 





If your eyes get tired while you’re checking long listings 
on the screen, this program will be a real boon. It 
highlights the current screen line, making it easier for you 
to keep your place while scanning the program. For the 
Commodore 64 and 128 in 64 mode. 


Everyone who has written a program or typed one in from a 
magazine or book knows the sinking feeling you get when 
you realize you’ve made a mistake and you'll have to go back 
and check your work. Programs that contain long lists of 
DATA statements are especially annoying; it’s easy to acci- 
dentally check a line twice or miss a line here or there. 

Have you ever wanted a ruler that would automatically 
move up and down the screen? “‘QuickScan”’ is just that, a bar 
that highlights screen lines. Just use the cursor keys to control 
the highlighter’s location. 


Using the Highlighter 

The instructions aren’t complicated. Type in QuickScan and 
save it to tape or disk. When you run it, a short machine lan- 
guage program is POKEd into memory, and a message (de- 
scribing how to start it) is printed on the screen. To enable it, 
type SYS49152. The machine language program is loaded into 
RAM by a BASIC loader. Although there is a built-in check- 
sum to help in entering the program, accurate typing is still re- 
quired since any mistake can crash the computer. 


Modifying QuickScan 

QuickScan uses seven multicolor sprites to create the high- 
lighting bar. Here are a few ideas for modifications. If you 
change the 0’s in lines 1001 and 1003 to 255’s, and run the 
program again, you'll see a bar three lines high. The upper 
and lower parts of the bar are the same color as the characters 
on the screen, so you won't be able to see them. But the mid- 
dle part is visible. 
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You can change the color of the middle part by POKEing 

53285 with a number from 0 through 15. You can split the bar 
by giving the first four sprites low priority and the other three 
high priority (POKE 53275,15). This might come in handy 
with question-and-answer programs. 


QuickScan 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


BQ 
AF 


EX 


GQ 


DB 


QP 


JG 


19 
118 


126 


PRINTCHRS (147) ;CHRS$ (144) 
FORAD=784T0O766: READDA: POKEAD, DA:NEXT: REM S 
PRITE 
FORAD=49152T049251 :READDA: POKEAD, DA: 
{4 SPACES }CS=CS+DA:NEXT:REM M-L PROGRAM 
IFCS<>11879THENPRINT"ERROR IN DATA STATEMEN 
TS" :END 
PRINT"ENTER SYS 49152 TO ACTIVATE SPRITE-BA 
R" 
DATAD,8,9,0,09,09,9,09,0,9,9,09,09,9,0,09,0,9,0 
DATA®,8,9,0,09,85,85,85,85,85,85,85,85,85 
DATA85,85,85,8,9,09,9,0,09,0,0,09,0,0,0,0,0,0 
DATAS,8,9,0,0,0,0,0,09,0,0,0,169 
DATA11,16@,7,153,247,7,136, 208,250,169, 24, 
168,9,24,153,0,2908,195,48 
DATA299 , 200,144,247,169,96,141,16, 208,169, 
8,141,18,208,169,56,141,12 
DATA298,169,127,141,28,208,141,27,208,141, 
29,208,141, 23,2908,141,21 
DATA298,169,1,141,37,208,120,169,74,160,19 
2,141,20,3,149,21,3,88, 96 
DATA24,173,134,2,141, 38, 208,165,214,19,19, 
19,195,34,168,14,153,255 
DATA207,136,136, 298, 249, 76,49, 234 


71 


Quick Character Transfer 





Fabio Coronel 


Setting up a custom character set can be painfully slow. 
This machine language routine will greatly speed up the 
process. For the Commodore 64 and 128 in 64 mode. 


Well-designed graphics add a lot to almost any program. 
Sometimes pictures can communicate better than words. The 
easiest type of graphics to use is character graphics, those odd 
shapes shown on the front of the keys. Another type of graph- 
ics is achieved with redefined characters which allow you to 
create shapes in much greater detail. But they’re also more dif- 
ficult to use. 

First, you must reserve space for the new character set in 
RAM by lowering the top-of-BASIC pointer. Next, you change 
the character-set pointer to point to the location of the new 
characters. You then transfer the character patterns from ROM 
to RAM and change selected characters to their new shapes. 

The major drawback is the time it takes to transfer the 
character patterns. It may take BASIC almost a minute to 
PEEK the bytes from ROM and POKE them to RAM, depend- 
ing on the number of characters transferred. 

“Quick Character Transfer” creates a machine language 
routine to transfer the character patterns from ROM to RAM 
instantly. The ML routine is POKEd into the cassette buffer, 
but it’s completely relocatable. You can put it elsewhere by 
setting variable AD in line 100 to the start of the new location. 


Adding It to Your Programs 

To use Quick Character Transfer, you must add it to your pro- 
gram. You can place it at the end as a subroutine or at the 
start as part of the initialization, as long as it’s executed before 
you redefine your characters. You may have to change the line 
numbers to make it fit. 
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Quick Character Transfer can also be used by itself as a 
demonstration. Type in the program and save it before run- 
ning. The characters on the screen will momentarily appear as 
a random pattern of dots as the pointer to the start of the 
character set is changed to point to the random bytes in RAM. 
Then the characters quickly return to normal as the patterns in 
ROM are transferred to RAM. 

Now you can change any character to look like a space- 
ship or a bird or a foreign language character. Just POKE the 
character pattern into the RAM area used by the new character 
set. To show that the characters are indeed in RAM, lines 
1000-1010 change the @ character into a happy face. Type 
the @ key to see it. To return to the normal character set, 
press RUN/STOP-RESTORE. 

The program transfers the entire uppercase /graphics char- 
acter set (256 characters) from ROM to RAM. You can transfer 
the uppercase /lowercase character set instead by changing the 
208 to 216 in line 170, thus altering the checksum in line 120. 
The location of the character set in RAM is determined by the 
two 14’s in line 90. these values represent the number of 
kilobytes from the start of the video bank. 

When you’re selecting a place for the character set, re- 
member that it must be placed above your BASIC program on 
a 2K boundary in the same video bank as the screen. If you 
were frightened by that last sentence, just leave the values at 
14. This puts the start of the character set at 14336, leaving 
12K free for your BASIC program. 


Quick Character Transfer 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 
this program. 


MR 98 POKE56,14*4:CLR: POKE33272, (PEEK(53272)AND24@ 
)OR14 

XB 18090 AD=828:REM STARTING ADDRESS 

QB 1198 FORI=ADTOAD+81 : READA: X=X+A: POKEI,A:NEXTI 

SM 12@ IFX<>9923THENPRINT"ERROR IN DATA STATEMENTS 

-":STOP 

BJ 138 SYSAD 

SE 148 DATA 173,14,228,41,254,141,14 

XP 158 DATA 220,173,24,208,41,14,19 

MX 168 DATA 198,133,167,169 

XB 178 DATA 2@8:REM CHANGE TO 216 TO MOVE LOWER CA 
SE 

QP 188 DATA 133,252,173,9,221,41,3,73,3 

DK 198 DATA 19,19,18,19,19,18,5 
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280 
219 
220 
230 
240 
258 
260 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


167,133,254,165,1,41,251 
133,1,169,9,133,251,133 
253,168,162,8,177,251,145 
253,200,208, 249,238,252, 230 
254,202,208, 242,165,1,9 
4,133,1,173,14,220,9 
1,141,14,229,96 


1998 FORI=14336T014343 :READA: POKEI,A:NEXT 


1918 DATA{2 SPACES}69,66,165,129,165,153,66,69 





Color Swap 





Lee Noel, Jr. 


Frustrated by the time and trouble involved in making 
color changes to high-resolution program displays? “Color 
Swap” makes them instantly, and it works for the other 
graphics modes of your computer, too. For the Commodore 
64 and 128 in 64 mode. 


“Color Swap” is a machine language graphics aid for your 
BASIC programs. Operating at high speed, it enables you to 
change colors at will—without LISTing and editing your pro- 
gram or without waiting for the screen to rebuild. It works 
with any type of display—text, hi-res, multicolor, sprites, and 
so on—and automatically adjusts itself to the screen configura- 
tion you’ve chosen. 

To start, type in the program. Be sure to save a copy of 
the program before you run it. When you run the program, if 
you have a correct version, you'll see a message with program 
instructions. If this is the first time you’ve used a machine lan- 
guage program, the SYS command in the final screen message 
may be unfamiliar to you. SYS XXXXX, a BASIC statement 
that can be used in either direct or program mode, transfers 
control from the BASIC environment to the machine language 
program at address XXXXX. 

Note where it tells you to SYS; then type NEW and press 
RETURN. Although you have just erased the program from 
BASIC memory, it resides in a safe location (see below for de- 
tails). You can load, save, and NEW lots of programs, but 
Color Swap remains ready to be activated at any time by the 
SYS call. The program can be erased only by turning off your 
computer or by putting something else into its memory area. 


A Pair of POKEs 

Once in place, the program is simple to use. It creates two 
new (pseudo) registers at addresses 700 and 701. Think of 700 
as the Old Color Register, and 701 as the New Color Register. 
If you POKE these locations with two different color codes 
and SYS to Color Swap, any displayed color that matches the 


79 


CHAPTER 2 


value in 700 will be changed to the color indicated at 701. 

To make this clearer, here’s an example. After loading and 
running Color Swap, load the program you want to experi- 
ment with and bring up the desired screen display. Working in 
direct mode, you might enter 


POKE700,6:POKE701,7:SYS XXXXX 


where XXXXX is the Color Swap address. 

If you enter this line and press RETURN, the program 
will find your display, look for blue (color code 6), and alter 
any blue it finds to yellow (code 7). This could, for example, 
change an entire blue sky to yellow or cause the same trans- 
formation in a tiny redefined character. And the exchange of 
color takes place immediately—there’s no waiting. If you don’t 
like the effect, reverse the codes and SYS to Color Swap again. 

As you go, make notes of the color codes that give the 
best results. Later on you'll want to plug these tested values 
into the program you're working with. Color Swap acts di- 
rectly on your computer, not on your programs, so you'll need 
either notes or a perfect memory. 

Until you become thoroughly familiar with Color Swap, 
there are a number of points to keep in mind. The program is 
designed to change every occurrence of a particular color— 
which can be disconcerting at times. If you alter a blue sky 
and the current text color is also blue, both will be changed 
accordingly. (For a way around this problem, read on.) More- 
over, it can be difficult to use Color Swap with extended back- 
ground color. The program works fine, but you must know 
exactly what you’re doing. Finally, for safety, stick to the stan- 
dard Commodore color code numbers, 0-15. Note that Color 
Swap will not generally work in conjunction with other ma- 
chine language programs, including utility cartridges and 
BASIC extensions. 

Color Swap is most effective with displays and programs 
that are fairly satisfactory apart from their colors. If you’re in 
the early stages of developing a program and are using Color 
Swap concurrently, you'll need to take extra care to keep track 
of which program is supplying color codes. 

A little practice will make things clear. You can even start 
without a program by experimenting with the colors of your 
computer’s standard display. If you ever do run into trouble, 
just reload your program and start over. 
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One-Way Trip 

Blocks of machine language work like subroutines in BASIC. 
Color Swap is just simple chunks of machine language sub- 
routines linked together in a particular sequence. 

In this case, the arrangement is like towns (the subrou- 
tines) connected by a one-way street. If you want to avoid the 
town that changes text color, just get on the road at the next 
town. (With Color Swap, once you get on the one-way street, 
you're carried along to the very end—where control is re- 
turned to BASIC.) 

The accompanying diagrams show how the program is 
laid out. The first few sections are changes that can be made 
from BASIC, usually by a POKE to one memory location. You 
can skip over some of these early portions, thus avoiding un- 
wanted color changes. 

To make such a detour, just SYS to the address of the first 
needed town along the Color Swap route, having first POKEd 
700 and 701 with the desired values, of course. This multiple- 
entry-points feature of Color Swap is obviously useful, and 
you may enjoy experimenting with it. 


Relocating the Program 

Color Swap is relocatable. If the current location is inconve- 
nient, the bulk of the program can be shifted anywhere with 
free memory. Line 120 of the program contains the variable 
RA (Relocatable Address), which can be set to any desired 
value. However, if Color Swap is moved into the normal pro- 
gram area, you'll need to take steps to prevent it from being 
overwritten by BASIC. 

Remember that in any relocation the target addresses of 
all the SYS calls have to be changed as well. The parenthetical 
expressions in the diagram show you how to do this. (RA is 
the value of the number that appears after SYS in the final 
message from your loader. If you move RA outside the values 
described above, make provisions to protect the program.) 


Extending Its Usefulness 

After a little experimentation with Color Swap, you'll find 
many uses for it. Although it was devised mainly as a direct- 
mode method of editing displayed colors, it can be extended 
to many other applications. 
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For example, Commodore users know that you can’t 
POKE character codes directly to screen memory and see any 
effect unless you make corresponding POKEs to color mem- 
ory. As long as you know what code is in color memory, you 
can easily change it to contrast with the background by a SYS 
to Color Swap. With Color Swap in your computer and the 
default display on screen, enter this line in direct mode: 


POKE700,6:POKE701,1:S YS49286:POKE1524,83 


You should see a white heart appear near the center of your 
screen. POKE a few more character codes directly to screen 
memory. Convenient, isn’t it? 


Color Swap Locations 


64 
START: Nf 
change 
49152 current 
(RA) text color 
49171 
(RA +19) 


change 
49190 background 
(RA+38) | color 


change 
49196 sprite 
(RA+ 44) colors 


change 
49254 extended 
(RA+102) | background 
color 


49286 
(RA+ 134) 





To swap colors: 
POKE 700, old color: POKE 701, new color: SYS 49152. SYS to one of the later 
addresses shown above to avoid unwanted changes. 


Note: If Color Swap is relocated, use the expressions given above to work out the new ad- 
dresses—including RA, the new starting address. 


78 





SCREEN CONTROL 


You can also add Color Swap to programs as a subrou- 
tine. Although doing this may take a little thought, it can be 
worthwhile. As part of a larger program, Color Swap’s speed 
enables it to flash windows of text and background on and off, 


make displays appear and disappear, and alter characters and 
sprites instantly. 


Color Swap 
For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 
MS 18 REM *COLOR-SWAP 64*{3 SPACES}N IS ML CODE, A 
IS ADDRESS, AND I DOES THE COUNTING. 
CA 20 N=74:FORA=685TO690STEP5 :FORI=0TO3: POKEA+I1,N: 
NEXTI : POKEA+I , 96 :N=N-64 :NEXTA 
MB 38 CK=@:FORI=0TO9 :X=PEEK(685+I) :CK=CK+X :NEXT 
FB 48 REM CK IS CHECKSUM AND X ONE OF ITS COMPONEN 
TS. 
JX 58 IFCK<>528THENPRINT" {CLR} {DOWN}CHECK LINE 22 
FOR ERRORS.":END 
KM 188 CK=@:FORA=792T075@ : READN: POKEA, N: CK=CK+N:NE 
XTA 
AP 118 IFCK<>5158THENPRINT"{CLR} {DOWN}CHECK LINES 
702-758 FOR ERRORS.":END 
QF 128 RA=49152:RAS=STRS (RA) :L=LEN(RAS ) : RAS=RIGHTS 
(RAS,L-1):REM RA IS RELOC. ADR. 
CC 138 CK=@:FORA=RATORA+392 : READN: POKEA, N: CK=CK+N: 
NEXTA 
CD 148 IFCK<>46713THENPRINT" {CLR} {DOWN}CHECK LINE 
S 49152-49542 FOR ERRORS.":END 
CG 158 PRINT"{CLR} {DOWN}NOW POKE7@@,0C:POKE79@1,NC 
:SYS"RAS" TO{3 SPACES}SWAP COLORS" 
JD 168 PRINT:PRINT"{2 SPACES}WHERE OC IS THE COLOR 
CODE FOR THE OLD COLOR," 
BG 178 PRINT"{2 SPACES}AND NC IS THE CODE FOR THE 
{SPACE}NEW COLOR.":END 
XC 702 DATA 216,173,188,2,41,15 
DG 788 DATA 141,188,2,173,189,2 
GH 714 DATA 41,15,141,189,2,169 
AX 728 DATA @,141,172,2,141,171 
SG 726 DATA 2,141,169,2,141,170 
MR 732 DATA 2,96,173,33,208,41 
HK 738 DATA 15,2@5,188,2,208,6 
QP 744 DATA 173,189,2,141,33,208 
QS 75@ DATA 96 
FX 49152 DATA 32,198,2,173,134,2 
ME 49158 DATA 41,15,2805,188,2,288 
SE 49164 DATA 9,173,189,2,141,134 
JS 49178 DATA 2,32,198,2,173,32 
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49176 
49182 
49188 
49194 
49280 
49286 
49212 
49218 
49224 
49230 
49236 
49242 
49248 
49254 
49260 
49266 
49272 
49278 
49284 
49290 
49296 
493682 
49388 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49494 
49419 
49416 
49422 
49428 
49434 
49449 
49446 
49452 
49458 
49464 
49470 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CHAPTER 2 


208,41,15,205,188,2 
208,9,173,189,2,141 
32,208,32,199,2,32 
222.2432 190, 2,173 
37,2808,41,15,205,188 
2,208,6,173,189,2 
141,37,208,173,38,298 
41,15,205,188,2, 2908 
6,173,189,2,141,38 
208,168,90,185, 39,208 
41,15,205,188,2, 2988 
6,173,189,2,153,39 
208,208,192,8,288,235 
32,198,2,173,17,208 
41,64, 249,22,32,222 
2,173,36,208,41,15 
295,188,2,288,6,173 
189,2,141,36, 298,24 
144,7,173,22,298,41 
16, 249,37,169,255,141 
176,2,173,34,2908,41 
15,205,188,2,2808,6 
173,189,2,141, 34, 208 
173,35, 208,41,15,2085 
188,2,2908,6,173,189 
2,141,35,208,173,17 
268,41,32,208,5,169 
255,141,169,2,173,9 
221,41,3,201,3,298 
4,162,0,134, 254, 261 
2,208,4,162,64,134 
254,201,1,2098,4,162 
128,134,254, 201,98, 288 
4,162,192,134,254,173 
24,208,41,248,32,173 
2,32,188,2,181,254 
133,254,169,9,133,253 
169,9,133,251,169,216 
133,252,162,0,142,167 
2,162,8,142,168,2 
162, 234,142,183,2,169 
0,177,251,41,15,205 
188,2,298,5,173,189 
2,145,251,173,169,2 
201,255,208,2,240,55 
177,253,41,15,141,171 
2,205,188,2,208,6 
173,189,2,141,171,2 
177,253,41,248,141,172 
2,32,173,2,205,188 


49476 
49482 
49488 
49494 
49568 
49586 
49512 
49518 
49524 
49530 
49536 
49542 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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2,208,13,173,189,2 
32,178,2,24,109,171 
2,24,144,7,173,172 
2,24,199,171,2,145 
253,208,204,168,2,240 
2,208,170,174,183,2 
224,96, 208,1,96, 238 
167,2,238,252,238,254 
162,3,236,167,2,248 
2,208,144,162,232,142 
168,2,162,96,142,183 
2,208,132 
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Time Clock 


David W. Martin 


Put a digital clock on your computer screen with this 
machine language program. For the Commodore 64 and 
128 in 64 mode. 





There’s a clock inside your computer. It starts ticking immedi- 
ately when you flip the on switch and continues until you 
turn your computer off. 

It’s called the jiffy clock, a three-byte section of memory 
that ticks every 1/60 second (jiffy). You can read the time in 
jiffies with PRINT TI, or you can find how many seconds it’s 
been since you turned on the computer with PRINT TI/60. To 
get a more readable time, PRINT TI$ gives you hours, min- 
utes, and seconds. (For example, 131500 is 13 hours, 15 min- 
utes, 0 seconds, or a quarter past one in the afternoon.) 

TI and TI$ are called reserved variables. They are reserved 
for timekeeping only; you can’t use them in your programs 
unless you’re checking the time. To set the clock, you can de- 
fine TI$, using the HHMMSS (Hours, Minutes, Seconds) format 
inside quotation marks. For example, enter TI$=“063000” to 
set the clock to 6:30 a.m. You can’t set TI directly; you have to 
set TI$, which affects both time variables. 


The Stopwatch Function 

The jiffy clock sometimes comes in handy. When you’re run- 
ning benchmark tests, you can set the clock to 000000 just 
before running the routine being checked. When the routine is 
finished, PRINT TI to see how much time the program took to 
run. In this way, you find the fastest ways of doing such 
things as alphabetizing. It’s like using a stopwatch on a pro- 
gramming technique. 

You can also use the clock as an alternative to FOR-NEXT 
delay loops. Define a variable as TI+ 60 (for a one-second de- 
lay) and keep looping around until TI is greater than or equal 
to the variable. 

If you need to keep time in a program like a racing game 
or a touch-typing program, you simply read the jiffy clock. 
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Commodore owners have two time-of-day (TOD) clocks 
in addition to the jiffy clock. They’re built into one of the in- 
terface chips. The TOD clocks count in tenths of seconds 
rather than sixtieths. 


A Time-Display Window 
You could use a one-line program to continually display the 
time, for example, 


1 PRINT”{CLR/HOME}”;TI$:GOTO1 


except for one problem. To keep the time updated, the pro- 
gram would have to be running all the time, which would 
mean you couldn’t use the computer for anything else. 

“Time Clock” eliminates this problem. It prints the time 
in the upper right corner of the screen and leaves the com- 
puter available for other tasks. A machine language interrupt 
drives the program. In other words, it runs in the period when 
the operating system does its housekeeping (like updating the 
screen). 

To use Time Clock, type it in and save it before running. 
If the internal checksum does not match up, check the DATA 
statements. (Remember to save your corrected version.) 

Next, you'll be asked to set the clock. The Commodore 
uses a 12-hour clock, with a.m. and p.m designations. It wraps 
around and resets at midnight. 

After the clock has been set, the time will appear in the 
upper corner. You can press RUN/STOP and type NEW with- 
out affecting the clock. RUN/STOP-RESTORE will erase the 
clock. To regain it, you'll have to type SYS49171. 

Since the program runs independently from the jiffy 
clock, you can use TI and TI$ as clocks that are separate from 
the time displayed on the screen. Because the jiffy clock does 
not keep correct time when information is being written to or 
read from the cassette, Time Clock reads a TOD clock, which 
is not affected by tape. 


Time Clock 

For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 

this program. 

GE 108 Y=PEEK(49269) :IFY<>141THENGOSUB27@ 

BK 118 POKE56335,@:PRINT"{CLR}{WHT}":INPUT"AM OR P 
M ({RVSJA{OFF}/{RVS}P{OFF})";A$ 

RC 12@ IF AS<>"A" AND AS$<>"P" THEN 119 
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B=0:IF AS="P" THEN B=128 

INPUT"{3 DOWN}TIME (HHMMSS FORMAT)";TS 

IF LEN(TS)<>6 THEN 140 

IF VAL(LEFTS(TS,2))>12 THEN 250 

IF VAL(MIDS(TS,3,2))>59 OR VAL(MIDS(TS,5,2) 
)>59 THEN 252 

FORA=l1TO5STEP2 :D=VAL(MIDS(TS,A,1)) :D=D*16+V 
AL(MIDS(TS,A+1,1) ) 
POKE49154-(A-1)/2,D:NEXTA 

IF LEFTS(TS,2)="12" THEN B=128-B 

POKE49154, PEEK (49154)AND127:POKE49154, PEEK ( 
49154)ORB 

PRINT"{3 DOWN}{6 SPACES}PRESS ANY KEY TO ST 
ART CLOCK" 

GET AS:IF AS="" THEN 238 

PRINT" {CLR}":SYS49155:END 

PRINT" {DOWN}ERROR IN INPUT.":FORI=1T0O19000:N 
EXT:GOTO14@ 

REM ML LOADER 

T=49155 

READ A:IF A=256 THEN 300 

POKE I,A:I=I+1:X=X+A:GOTO 280 

IF X<>13794 THEN PRINT"ERROR IN DATA STATEM 
ENTS.":END 

DATA 162,3,189,255 

DATA 191,157,8,22@0,202,208, 247 

DATA 169,9,141,8,220,128,169 

DATA 32,141,20,3,169,192,141 

DATA 21,3,88,96,169,58,141 

DATA 29,4,173,134,2,141,29 

DATA 216,162,3,169,9,189,8 

DATA 220,41,112,74,74,74,74 

DATA 24,195,176,153,38,4,173 

DATA 134,2,153,38,216, 200,189 

DATA 8,220,41,15,24,185,176 

DATA 153,30,4,173,134,2,153 

DATA 30,216,200, 202,208, 213,173 

DATA 8,220,24,1805,176,141,37 

DATA 4,173,134,2,141,37,216 

DATA 173,11,220,48,5,169,1 

DATA 76,117,192,169,16,141, 39 

DATA 4,173,134,2,141,39, 216 

DATA 76,49, 234,8,256 

RETURN 


Slowpoke 





Daniel R. Widyono 


This very short machine language program, from a 12- 
year-old author and programmer, allows you to control the 
speed of the PRINT statement. We’ve added some sugges- 
tions for using this unique routine. For the Commodore 64 

and 128 in 64 mode. 


When a 64 or 128 is printing something or listing a program, 
you can slow it down by pressing the CTRL key. You have a 
choice of two speeds, regular and slow. If you’ve ever used an 
Apple II, you probably know that it gives you a wider choice; 
it has 256 printing speeds. 

Can a similar feature be added to the 64 and 128? You 
could use a BASIC subroutine, although it would be rather 
complicated. You would have to define a string, do a FOR- 
NEXT loop for the length of the string, use MID$ to pull out a 
character, print the character, use another FOR-NEXT loop for 
the delay, and then continue until the message is done. The 
subroutine would work only as part of a program. You'd still 
have to press CTRL to slow down program listings. 


A Better Way 

There’s a short, simple, and effective machine language alter- 

native to the BASIC subroutine. Enter and save “‘Slowpoke.” 
Now run the program and type LIST. It lists as you would 

expect. Enter 


POKE 251,255:LIST 


and you'll see a very slow listing. The program takes more 
than a minute to list (compared to less than a second at the 
regular speed). POKE a zero into 251, and the computer re- 
turns to normal. 

You now have 256 different printing speeds, from 0, the 
fastest, to 255, the slowest. There’s no need to use a BASIC 
subroutine or to SYS. Just POKE the speed you want into 
memory location 251. It works within programs and also in 
immediate mode. It even slows down error messages and the 
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READY prompt. If you use a printer while “Slowpoke” is on, 
it will wait between lines, but not between characters. You'll 
notice, however, that your typing is not affected; the computer 
still reads the keyboard at the regular speed. 

Pressing RUN/STOP-RESTORE disables Slowpoke. To 
get it back, you'll have to run the loader program again or type 


POKE 806,167: POKE 807,2 


If you use these POKEs, make sure you put them on the same 
line, separated by a colon. 


How It Works 

I was looking through a memory map and discovered a vector 
at 806-807 that points to the character-out (CHROUT) routine 
in the operating system. The Kernal CHROUT vector in ROM 
(which cannot be POKEd) uses this vector in RAM (where it 
can be changed) to find the routine that sends a character to 
screen memory, to a printer, or to a tape or disk file. 

When the computer gets an instruction to PRINT, it 
checks the Kernal vector, goes to this vector, and finally ends 
up at the instructions for printing. The computer has to look 
up the address for every character it prints, even if the charac- 
ters are part of a long string. The address is stored in the usual 
low-byte/high-byte format. 

Vectors are like highway signs, pointing the way to a des- 
tination (in this case, the CHROUT routine). By changing the 
numbers in memory locations 806 and 807, you can change 
the route, adding a slight detour, a machine language delay 
loop. When the computer tries to PRINT or LIST, the vector at 
806-807 sends it to the delay loop, which is followed immedi- 
ately by a jump to the usual CHROUT part of the operating 
system. 

Since machine language is so fast, you need two delay 
loops, one inside the other. First, the X register is loaded from 
location 251. If 251 holds a zero, the rest of the loop is skipped 
(using BEQ, Branch if EQual to zero). Then the Y register is 
loaded with the number 255. Y is decremented (DEY) until it 
becomes zero. Next, X is decremented and a BNE instruction 
(Branch if Not Equal) loops back to the DEY loop. The higher 
the number in 251, the longer the loops take. At the slowest 
printing speed, X has to be decremented 255 times, while Y is 
decremented 255 X 255 times (over 65,000 times). 
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The values of X and Y are always zero after the loop has 
been done. So, to be safe, the values of the A, X, and Y regis- 
ters, as well as the processor status, are saved. They are 
pushed onto the stack before the routine is executed and 
pulled off after the delay loop. 

The delay loop occupies a small area of memory at loca- 
tions 679-767. If you need this RAM for other machine lan- 
guage programs, Slowpoke is relocatable. You can move it to 
the cassette buffer, beginning at 828, or other free sections of 
memory. If you have a program which uses zero-page location 
251, change the 251 in line 30 to another available zero-page 
location. 


Practical Ideas 

One useful application of Slowpoke is to slow down program 
listings. Load and run Slowpoke; then load the program 
you're working on. You can control the speed of the listing 
with a single POKE. 

If you are working on a game and the rules take up a 
couple of screens, you can use Slowpoke to make them scroll 
up slowly, rather than the usual method of printing a screen 
and waiting for the user to press a key to get the next page. 
This same idea could be adapted to a story program: At the 
end of the story, roll the credits (just like at the movies). Many 
programs that put a lot on the screen could use a printing 
speed control. 

The program is a good debugging tool if you are having 
problems getting the screen graphics just right. You should 
note, however, that only the PRINT statement is affected; 
POKEing to screen memory is no slower than usual. 

Slowpoke can be very useful with a program that exam- 
ines tape or disk files. You would open the file, read an item, 
print it to the screen, and then use a GET statement to see 
whether a key has been pressed. If not, then continue with the 
next item. If f1 has been pressed, speed up the printing; if £7 
has been pressed, make it slower. You might even adapt it to 
a speed-reading program. 

Finally, if you’re familiar with machine language pro- 
gramming, you could make a slight modification to add sound 
effects. Just before the delay loop, turn on the noise generator 
and turn it off at the end of the loop. Each time you print 
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something, you will hear, say, the clicking of a typewriter. If 
you want to get really fancy, you can add a bell sound at the 
end of each line. 


Slowpoke 


For mistake-proof program entry, use ‘“‘The Automatic Proofreader,” Appendix B, to type in 
this program. 





AX 18 CK=@:POKE251,@ 

FK 20 FORJ=679T0793 : READA: CK=CK+A: POKEJ ,A:NEXT 

HD 25 IFCK<>3615THENPRINT"CHECK DATA STATEMENTS" :E 
ND 

PS 3@ DATA72,138,72,152,72,8,166,251,248,8,1698,255 
, 136,208,253, 202,208,248, 48 

GG 49 DATA194,168,194,170,184, 76 

HD 58 IFPEEK(8@7 )<>2THENPOKE7@4, PEEK( 886) :POKE7@5, 
PEEK(897) 

GE 60 POKE896,167:POKE8907, 2 
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Gregg Peele 


Have you ever created a hi-res picture or graph and then 
tried to reproduce it on your printer? This program allows 
you to do just that. Compatible with the Commodore 1525 

or MPS-801 printer (but not the 1526). For the Commo- 

dore 64 and 128 in 64 mode. 


The Commodore 64 and 128 allow you to create high- 
resolution graphics images on the video screen. With the 64 
Super Expander cartridge or another hi-res program, it’s easy 
to produce detailed artistic creations. However, most of these 
programs don’t provide a method of printing out these artistic 
endeavors once you've finished them. Unless you leave your 
computer turned on indefinitely, your creation is short-lived. 

“Hi-Res Screen Dump” works with a Commodore 1525 or 
compatible printer. (Note that the 1526 printer from Commo- 
dore is not compatible with the 1525 and will not work with 
this program.) 


Bit Transfer 
Hi-Res Screen Dump is designed to transfer the bit infor- 
mation from screen memory to the printer. Since the 1525 
printer can accept only seven bits of data at a time in graphics 
mode (the high bit must always be set), the eight-bit bytes in 
screen memory must be split into odd units before they are 
sent to the printer. Transferring the information from screen to 
printer is further complicated since the location of screen 
memory bytes must also be calculated, and hi-res screens for 
the 64 can be moved to several different areas of memory. 
This program reads data from the screen one bit at a time 
starting from the lower left corner of the screen. After seven 
bits, the program moves to the leftmost bit of the next row up 
and prints seven more bits, continuing up the screen. After the 
leftmost seven-bit column has been printed, the program starts 
at the eighth bit over from the bottom left corner and contin- 
ues cycling from bottom to top until the entire screen has been 
read. Each seven bits are combined to form the byte sent out 


89 


CHAPTER 2 


to the printer. Since the program reads from the left bottom 
side of the screen to the right top side, the printout is a 90- 
degree-turned reproduction of the screen image. 

Hi-Res Screen Dump is written in machine language. A 
BASIC loader (the first several lines of the program) puts the 
machine language (in the form of DATA statements) into the 
appropriate locations in memory. The BASIC loader also 
prompts you for the width of the printout. To operate the pro- 
gram correctly, you must load and run Hi-Res Screen Dump 
before you load the program that creates the hi-res image. 


Selecting a Width and Making a Printout 

You can select either a single-width or double-width printout 
by POKEing a 1 (for single width) or a 2 (for double width) 
into location 2 (in other words, POKE 2,1 or POKE 2,2). This 
location is changed by your selection of width when you are 
prompted in the BASIC program, but it can be changed at any 
time. A SYS to location 52224 will initiate a printout of the hi- 
res screen. You can issue this SYS in direct mode if you have a 
design on the screen or add it to a hi-res drawing program if 
you make sure the machine language is loaded into memory 
before the SYS is encountered. Also, be sure that the printer is 
turned on before giving the SYS. 


Using the 64 Super Expander 

The machine language resides at the top of the computer’s 
block of RAM above location 49152 ($C000). This makes it 
compatible with the 64 Super Expander, but also means that it 
cannot be used with the 64 DOS Wedge program, since both 
occupy the same area of memory. The program is designed to 
print the hi-res screen that is currently visible. If you want a 
screen dump when you are not in hi-res mode, POKE location 
900 with the high byte of the starting address of the hi-res 
screen and SYS to location 52224+32. This alternate SYS by- 
passes the routine that determines the location of the hi-res 
screen. For example, if your hi-res screen starts at location 
57344 ($E000), you would initiate the screen dump with 


POKE 900,(57344/256): SYS 52256 
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Hi-Res Screen Dump 

For mistake-proof program entry, use “The Automatic Proofreader,”’ Appendix B, to type in 
this program. 

HD 3 INPUT"{CLR}WIDTH 1 OR 2";WI$ 


RQ 4 IF VAL(WIS$)<10R VAL(WIS$)>2 THEN3 
BG 5 POKE2,VAL(WIS) 


EH 59 


I=52224 

READ A:IF A=256 THEN 498 

PRINT" {CLRJENTERING DATA": POKE646,A 

POKE I,A:I=I+1:CH=CH+A:GOTO 29 

IF CH<>69668 THENPRINT"ERROR IN DATA STATEME 
NTS" :END 

PRINT"SYS 52224 TO START DUMP":END 


52224 
52230 
52236 
52242 
52248 
52254 
52268 
52266 
52272 
52278 
52284 
52290 
52296 
52382 
52388 
52314 
52320 
52326 
52332 
52338 
52344 
523598 
52356 
52362 
52368 
52374 
52386 
52386 
52392 
52398 
52404 
52410 
52416 
52422 
52428 
52434 
52448 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


173,8,221,41,3,73 
3,1698,6,18,136, 298 
252,141,132,3,173,24 
208,41,8,248,9,24 
169,32,199,132,3,141 
132,3,169,0,32,189 
255,169,4,179,168,255 
32,186,255, 32,192,255 
162,4,32,201,255,176 
3,76,61,284,76,32 
205,169,8,32,210,255 
169,13,32,219,255,162 
9,169,1,141,198, 2985 
169,8@,141,199,205,169 
0,141,200,205,169,199 
141,201,205,32,225,255 
298,3,76,32,205,138 
72,152,72,32,41, 205 
194,168,194,178,173,205 
265,45, 203, 205,249,12 
173,202, 2805,13,198, 205 
141,2802,205,76,143, 284 
173,198, 285,73,255,45 
202,205,141,202,205,14 
198,205,173,198, 205, 201 
128, 248,20,24,173,199 
265,195,1,141,199, 205 
173,200,205,105,98,141 
268,285, 76,93, 204,173 
262,205,9,128,224,45 
144,18,173,202,205,41 
31,9,128,141,282, 205 
142,207,285,166,2,142 
296,205,168, 32,210,255 
152, 296,296,285, 208,246 
174,207,285,169,1,141 
198,205,169,9,141, 282 
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52446 
52452 
52458 
52464 
52470 
52476 
52482 
52488 
52494 
525008 
52586 
52512 
52518 
52524 
52530 
52536 
52542 
52548 
52554 
52569 
52566 
52572 
52578 
52584 
52598 
52596 
52662 
52688 
52614 
52626 
52626 
52632 
52638 
52644 
52656 
52656 
52662 
52668 
52674 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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265,56,173,199, 285, 233 
6,141,199,295,173, 280 
205, 233,0,141,208, 205 
206 ,2801,205,173,281,205 
201,255,248,3,76,93 
204,224,45,176, 31,24 
173,199,205,195,7,141 
199,205,173,200,205,195 
@,141,200,205,232,169 
199,141,201,205,169,13 
32,210,255, 76,93, 204 
169,13,32,210,255, 32 
231,255,96,173,201,2985 
41,7,141,204,205,173 
201,205,74,74,74,168 
185,146,2905,133,251,185 
172, 205,133,252,24,165 
251,199,204, 205,133,251 
165,252,195,0,133,252 
24,173,132,3,1801,252 
133,252,173,199,205,41 
7,73,7,168,208,169 
@,56,42,136,298,252 
141,203,205, 24,173, 200 
205,181,252,133,252,173 
199, 205,41,248,168,138 
72,1280,162,52,134,1 
177,251,162,55,134,1 
88,168,1804,170,152,45 
203,205,141,205,205, 96 
8,64,128,192,8,64 
128,192,9,64,128,192 
6,64,128,192,0,64 
128,192,8,64,128,192 
0,64,0,1,2,3 
5,6,7,8,18,11 
12,13,15,16,17,18 
20,21,22,23,25,26 
27,28,30,31,256 





Screen Headliner 





Todd Heimarck 


This short machine language routine expands a letter to 
four times its normal size. The large character can then be 
used in a headline or for a variety of other purposes. The 
program is also compatible with Commodore printers. For 
the Commodore 64 and 128 in 64 mode. 


Oversized characters can be useful—on a title screen, in a chil- 
dren’s alphabet or math program, or for visually impaired 
computer users. Finding the right combination of graphics 
characters usually takes time. You have to experiment. And 
creating a whole alphabet can use a lot of memory. 

The simplest method for displaying huge letters without 
experimenting or wasting memory is to PEEK the character 
generator in ROM and print a solid block (reverse space) for 
each bit that is on. If the bit is off, you print a space. The one 
major disadvantage to this method is that each character ex- 
pands to eight times its normal size. Very little space remains 
on the screen. But by keeping in mind the idea of reading 
character ROM, you can sidestep this problem with some spe- 
cial Commodore characters. 


The Quarter-Square Solution 

Hold down the Commodore key and type IKBVDCF. These 
seven characters, plus a blank space, make up half the quarter- 
square graphics set. The other half is accessed by typing the 
same keys while reverse is turned on. There are 16 different 
characters, one for each combination of quarter squares turned 
on or off. 

Quarter squares enable you to set up what amounts to a 
medium-resolution screen. It’s less complicated to program 
than a hi-res screen and has better resolution than the usual 
low-resolution character set. Instead of making characters turn 
on and off, you control big pixels (each of which is one fourth 
of a character). A Commodore 64 has the capability of ad- 
dressing 80 X 50 big pixels. 
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The 16 characters are the starting point for the ‘Screen 
Headliner.’”’ The basic idea is to read the character ROM, 
translate each bit into a big pixel, and print the equivalent 
quarter-square graphics character. You can do this in BASIC 
with a lot of PEEKs and POKEs, but machine language is 
faster and more elegant. 

The program is easy to use. After you’ve entered and 
saved the program, type RUN. A short machine language pro- 
gram is POKEd into memory. To make it work, you need two 
POKEs and a SYS: 


POKE 249,0: POKE 250,1: SYS 828 


You should see a large capital A, four characters wide and 
four deep. Now simultaneously press the Commodore key and 
SHIFT to switch to the uppercase /lowercase set. Cursor up to 
the POKEs, press RETURN, and you will see a large lowercase 
a. Now try putting a 129 into location 250; the result is the 
same character printed in reverse. 

If you've saved a copy of Headliner, type NEW to erase 
the BASIC loader program. (It won’t affect the machine lan- 
guage program, which is safely tucked into the cassette 
buffer.) Now type in these lines: 


QG 2 MK=7:REM FOR VIC-20, USE 3 
HH 5 PRINT"{CLR}"; 

RQ 18 FORX=@T0255 

PS 26 Y=(XANDMK)*4:POKE249,Y 

JM 25 IFXANDMKTHENPRINT"{4 UP}"; 
XP 38 POKE25@,X:SYS828 

QG 48 NEXT 


(Note: Tape users should not save this example program; 
tape operations erase Headliner from the cassette buffer.) Type 
RUN, and the whole Commodore character set will parade 
down the screen. 

The top of the large character is printed wherever the 
cursor happens to be when you SYS. The POKE to 249 deter- 
mines how far the cursor spaces over before it begins. The 
number must be between 0 and 35. 

Next, POKE the letter’s screen code into 250. Ignore the 
ASCII value; you want the screen code—the number you use 
when POKEing a character to the screen. Numbers 1-26 are 
the letters A-Z, 48-57 are the characters 0-9, and so on. To 
get a reversed character, add 128 to the screen code. 
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After you’ve POKEd into 249 and 250, enter SYS 828. 
The oversize character will appear almost instantly. 


Some Bonuses and a Drawback 

The original version of this routine figured out the shape of 
the large character and POKEd the appropriate quarter-square 
graphics to the screen. But Headliner now PRINTs (using the 
Kernal PRINT routine at $FFD2) instead of POKEing. It’s nec- 
essary to turn reverse on and off repeatedly to get all the quar- 
ter squares, which is a little cumbersome. But there are some 
major advantages to sending everything through $FFD2. 

One bonus is that you can send large characters to a 
Commodore printer, although you need to change one value 
to print spaces instead of cursor-rights (see line 951). Enter 
this to make a printout: 


OPEN 4,4: CMD4: POKE 249,xx: POKE 250,yy: SYS 828 


Remember to replace xx with the location where you want 
to print and to substitute the screen code for yy. If you can, 
adjust your printer’s line spacing to zero—so there is no extra 
space between the characters. 

When you've finished printing, PRINT#4:CLOSE4 prop- 
erly closes the file to the printer. Unfortunately, printers do 
not allow cursor-up movements; you are limited to one large 
character per line. To get around this limitation, you could 
manually move the paper back or use a screen dump program. 
Or, if you feel ambitious, use CMD to send output to a tape or 
disk file and then read the data back into an array for dump- 
ing to the printer. 

Finally, the flexibility of the PRINT statement is at your 
fingertips: You can print almost anywhere on the screen, in 
any color you like (just change the cursor color). You can even 
mix large uppercase, lowercase, and graphics characters on the 
Same screen. 


oy a “Headliner” is compatible with Commodore 


a printers. Uppercase and lowercase print are illus- 
iol trated here. 
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A slight drawback is that each line must be followed by a 
carriage return, which means you cannot put a character at the 
right edge of the screen. Nor can you print the large character 
at the bottom of the screen, which always scrolls up one line. 


How It Works 

There are two sets of POKEs in the BASIC loader program. 
The first loop (688-703) contains the modified ASCII values of 
the quarter-square graphics characters. Since there is no such 
thing as an ASCII value of a reversed character, the reverse 
flag has to be turned on and off. Bit 6 of each character is 
used to signal whether or not the character is reversed; the 
number is then ANDed with $BF (191) to turn off bit 6 before 
the character is printed. 

The second loop is the machine language routine. It goes 
into the cassette buffer, but is written so that it can be relo- 
cated. If you need the cassette buffer for another ML program, 
or if you are using a Datassette, you can move the routine 
anywhere else in memory. (The first loop has to stay where it 
is, however). If you put it in BASIC RAM, you'll have to pro- 
tect it from being overwritten. 

If you’re interested in machine language, here’s a brief ex- 
planation of how Headliner works. The main routine first 
checks which character set is being used and sets a zero-page 
pointer accordingly. The screen code number is then multi- 
plied by eight and added to the pointer. Once the pointer is 
set, the bytes from character ROM are loaded in two by two. 
By alternately shifting left the bytes (ASL) and rotating left the 
accumulator (ROL), a number from 0 through 15 is generated. 
This number is used as an offset to look up the appropriate 
quarter-square graphics character in the table at 688. Bit 6 is 
checked, and, if it’s set, reverse is turned on. And, finally, a 
JSR to $FFD2 prints the character. The program then loops 
back to get the next set of bits. 


Screen Headliner 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 
this program. 


BA 5 PRINT"{CLR}PLEASE WAIT A MOMENT" 

SE 190 T=0:FORJ=688T07@3 : READK: T=T+K: POKEJ,K:NEXT 

HX 15 IFT<>3878THENPRINT"ERROR IN DATA STATEMENTS" 
:STOP 

KK 28 T=0:FORJ=828T0O19006 : READK : T=T+K: POKEJ , K:NEXT 
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25 IFT<>20306THENPRINT"ERROR IN DATA STATEMENTS 
":STOP 


38 POKE249,@ 


688 
696 


996 


DATA32,188,198,226,172,225,191,251 
DATA187,255,161,236,162, 254,252, 96 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


169, 208,133,004,173,8024 
208,841 ,002,249,004,169 
216,133,004,169,800,162 
003,0806,258,842, 202,288 
258,824,191 ,984,133,9004 
165, 258,133,903,173,014 
226,041,254,141,014,229 
165,901,041, 251,133,981 
169,0800,133,250,169,895 
133,002,168,000,177,883 
133,9005,238,0803,177,9883 
133,986, 230,083,198,9082 
249 ,828,162,084,169,9000 
006,006,842 ,006,906,042 
906,005,042,806,0805,042 
164, 250,153,848, 9862,230 
258,202,208, 232,240,210 
165,001 ,909,994,133,9061 
173,014,220,009,001,141 
914,220,160,000,166, 249 
249,088,169 


029:REM 932 IF USING A PRINTER 


032,219 

255, 2802,2808,258,169,004 
133 ,906,185,8048,062,170 
189,176,062,133,905,941 
964,248,0805,169,818,832 
219,255,165,8095,841,191 
632,219,255,169,146,932 
218,255,2808,198,806, 288 
221,169,8013,832,218,255 


1982 DATA 192,816,208,196,996 


97 





CHAPTER 3 


Input/Output 
Routines 


64 RAM Disk 


MiAngelo Moore 


This short utility is an excellent programming development 
tool—it’s like having instant access to an 8K disk drive. 
For the Commodore 64 and 128 in 64 mode. 





Some computers have a very useful feature called a RAM 
disk—an area of memory used for temporary program or data 
storage. Although this area basically works like a tape or disk 
drive for program storage, it is not permanent. Anything 
stored there is erased when you turn the computer off. The 
advantage of a RAM disk is that you can have almost instant 
access to the information stored there—without waiting for 
data to be loaded from or saved to an external storage device. 
For this reason, it provides an excellent program development 
tool. The Commodore’s operating system does not directly 
support a RAM disk, but this machine language program, “64 
RAM Disk,’ provides one. A maximum of 8K is available for 
program storage. This RAM disk can hold only one program at 
a time, even if the program is less than 8K long. 


A Development Tool 
There are several uses for a RAM disk. Suppose you need a 
quick disk directory, but you have a program in memory and 
no DOS Wedge. You can save your program to RAM disk, 
LOAD“’$0”,8, and then retrieve the program after viewing the 
directory. Or, if you want to append a subroutine to a pro- 
gram, you can save the subroutine to RAM disk, load the 
main program, change the start-of-BASIC program pointer, re- 
trieve the program from RAM disk, and change the start-of- 
BASIC program pointer back to 2049, and your program will 
be appended. There are numerous uses for 64 RAM Disk as a 
development tool. 

In order to make the program easy to use, three new com- 
mands are wedged into BASIC. Note that these commands 
should be used only in immediate mode. 
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« Save program currently in memory to RAM disk. 

t Retrieve program in RAM disk and transfer to memory. 

< Clear RAM disk memory. Be extremely careful when using 
this command. It completely erases the contents of the RAM 
disk. 


The RAM disk is designed for use with BASIC programs. 
The block of memory saved is the area between the address in 
the start-of-BASIC program pointer (contained in locations 
43-44) and the address in the end-of-BASIC program pointer 
(contained in locations 45-46). Data from the RAM disk is al- 
ways reloaded beginning at the address in the start-of-BASIC 
program pointer. Thus, the RAM disk is not suitable for stor- 
ing machine language routines from other areas of memory. 

Before you save a program to the RAM disk, be sure the 
program is no longer than 8K. If it’s longer, it will not be 
placed in the RAM disk, and a message will appear. The rea- 
son for the 8K restriction is that the memory area used for 64 
RAM Disk is located in the 8K RAM area under BASIC ROM. 
This means programs that copy BASIC to RAM for modifica- 
tion or programs that place high-resolution graphics under the 
BASIC ROM will not work with 64 RAM Disk. Also, 64 RAM 
Disk will not work with any program that uses memory loca- 
tions 49152-49416, since this is where the machine language 
for 64 RAM Disk is located. 


Typing It In 

As you're typing in the program, be especially careful with the 
numbers in the DATA statements. When you've finished, save 
a copy. To use it, load it and type RUN. A message will tell 
you to enter SYS 49152 to activate and SYS 64738 to deacti- 
vate. The latter SYS resets the computer just as if you had 
turned it on. (Unlike most wedge routines, 64 RAM Disk is not 
disabled when you press RUN/STOP-RESTORE.) The three 
commands discussed above are now at your disposal. 


Memory Locations Used 

2-3 and 251-254 Temporary storage 
40960-49151 64 RAM Disk storage area 
49152-49416 64 RAM Disk machine language 
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64 RAM Disk 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 


this program. 


RB 


EG 
CS 


FP 


ER 


18 


20 
36 


406 


58 


PRINT" {CLR}{4 DOWN} {WHT}"SPC(8)"LOADING MACH 
INE LANGUAGE" 
FORI=49152T049416:READA: POKEI,A:X=X+A:NEXT 
IFX<>33629THENPRINT"ERROR IN DATA STATEMENTS 
-":STOP 
PRINT" {CLR}{2 DOWN} {RVS} SYS 49152 TO ACTIVA 
TE iT] 
PRINT" {DOWN} {RVS} SYS 64738 TO DEACTIVATE 
{OFF}{16 SPACES}(RESET COMPUTER)" 
DATA 169,76,133,115,169,13,133,116,169,192 
DATA 133,117,96,230,122,208,2, 238,123,32 
DATA 121,98,2@01,95, 208,83,165,43,133,251 
DATA 165,44,133,252,165,45,133,253,165,46 
DATA 133,254,56,229,252,201,32,176,44,169 
DATA 8,133,2,169,169,133,3,168,98,177 
DATA 251,145,2,23@8, 251, 208,2,230, 252,238 
DATA 2,208,2,2309,3,165, 251,197, 253, 208 
DATA 234,165,252,197, 254, 208, 228,238,122,2G 
8 
DATA 15,230,123, 230,122,208,2,230,123,169 
DATA 226,160,192,32,38,171,76,121,8,2@1 
DATA 94,208,79,165,43,133,251,165,44,133 
DATA 252,169,54,133,1,165,2,133,253,165 
DATA 3,133,254,169,8,133,2,169,169,133 
DATA 3,168,8,177,2,145,251,238,2,208 
DATA 2,2308,3,230,251,208,2,238, 252,165 
DATA 2,197, 253,208, 234,165,3,197,254, 2088 
DATA 228,165,251,133,45,165, 252,133,46,238 
DATA 122,208,2,238,123,169,55,133,1,76 
DATA 121,9,201,68,208,166,169,1698,133,3 
DATA 169,9,133,2,168,169,9,145,2,23@ 
DATA 2,165,2,201,3,144,244, 238,122,288 
DATA 141,238,123,76,121,8,88,82,79,71 
DATA 82,65,77,32,73,83,32,84,79,79 
DATA 32,76,79,78,71,32,78,79,82, 32 
DATA 84,72,69,32,82,65,77,32,68, 73 
DATA 83,75,46,13,9 
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Keyboard to Joystick 
Converter 





Dayid A. Dunn 


Did you ever play a good game that would have been 
even better if it offered joystick instead of keyboard 
controls? Here’s a solution. For the Commodore 64 and 
128 in 64 mode. 


Back in the days of the PET/CBM there was no way to hook 
up a joystick, so we all got pretty good at playing games using 
the keyboard. But it often became confusing: One game's con- 
trolling keys were different from another’s. The addition of a 
joystick port on Commodore machines was more than wel- 
come. But I still play some of the older games that require 
keyboard control and occasionally still find a program or two 
that insists that you use the keyboard. 

I wrote ‘Keyboard to Joystick Converter” as a solution to 
this problem. It allows you to use a joystick with Commodore 
64 and 128 programs that don’t provide joystick control. 


Plan A or Plan B? 

Type in Program 1 and save a copy before running it. Al- 
though it’s written in BASIC, it includes a machine language 
routine in the form of DATA statements. When you run the 
program, it asks you to choose plan A or plan B. By making 
this selection you determine where in memory to put the ma- 
chine language to avoid interference with the main program. 
Plan A uses the cassette buffer. Plan B uses the free area at 
758-767. For most programs, plan A works fine, although you 
should avoid this option if you’re using a Datassette. If plan A 
doesn’t work, rerun the program and select plan B. 

You're next asked to enter the keys corresponding to each 
direction and the fire button for each joystick port. Let’s say a 
program requires you to press the J key to move left and the K 
key to move right. When Keyboard Converter asks you to 
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press the key for left, press J. Next, you’re asked to press the 
key for right. Press K. If there’s no need for the joystick to 
move in a particular direction, just press any key. 


The Breaks 

After you've done this for both joystick ports, the program 
asks for the maximum break length. Joysticks vary not only in 
size, shape, and price, but also in quality. Many joysticks 
make good, solid contact between the wires inside, but some 
do not. Some lesser quality joysticks will make contact one 
moment, break contact for a fraction of a second, then make 
good contact again. This makes the computer think the joy- 
stick has been moved twice in that direction. In some pro- 
grams this causes no problem; in others it may. 

Keyboard Converter can make up for this deficiency by 
distinguishing between a break in the contacts and the true re- 
lease of the joystick. It does so by sensing how long the con- 
tacts have been broken. Generally, a period of three jiffies 
(one jiffy equals 1/60 second) or less is a result of a break in 
the contacts. Any longer than that usually indicates a true re- 
lease of the joystick. 

When Keyboard Converter asks for maximum break 
length, press RETURN to indicate three jiffies. If you have any 
problems with repeating movements, you can increase the 
break length by typing a higher number. 

Now move the joystick around. You should see the cor- 
responding letters on the screen. Now you can load and run a 
game, and use the joystick instead of the keyboard. Be sure 
not to press RUN/STOP-RESTORE after running Keyboard 
Converter—this will disable the joystick. 

The program works by modifying the IRQ routine, which 
is executed 60 times per second. It normally scans the key- 
board and increments the internal clock. When Keyboard Con- 
verter goes into effect, however, the computer scans not only 
the keyboard, but also the joystick ports. If the joystick has 
been moved, the code for the corresponding key is placed in 
the keyboard buffer to simulate a keypress. 


A Sample Program 


For demonstration purposes, type in Program 2. It’s a fast- 
action game (based on ‘Worm of Bemer,”” which appeared in 
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the April 1984 issue of COMPUTE! magazine) that uses key- 
board control. After using Keyboard Converter, you'll be able 
to control it with a joystick. 

After typing in ‘‘Worm,” save a copy. Run Keyboard Con- 
verter and select plan A. Here are the controls: 


I — up 
M — down 
J] — left 
K — right 


Now load and run Worm. In this game you control a 
worm and gain points by eating mushrooms that are placed 
randomly on the screen. The game ends when the worm runs 
over its own tail or into a wall. Sounds easy, but there’s a 
catch. Your worm grows every time it eats a mushroom. This 
makes it increasingly difficult to keep from running over its 
own tail. 

Lines 160-190 determine the direction keys. By modifying 
the number 25 in line 260, you can change the speed of the 
game. 


Program 1. Keyboard to Joystick Converter 


For mistake-proof program entry, use “The Automatic Proofreader,”” Appendix B, to type in 
this program. 


KX 18 FORI=1T0168:READA: X=X+A:NEXTI 

BC 20 IFX<>23Q067THENPRINT"{CLR}TYPING ERROR IN DAT 
A LINES":STOP 

CG 30 RESTORE: TTS=CHRS (142 )+CHRS(8)+"{CLR}{RVS} KE 
YBOARD TO JOYSTICK ":PRINTTTS 

MK 48 FORI=828T0856: READA: POKEI,A:NEXT 

XC 5@ DATA126,169,49,141,20,3,169,234,141,21,3,88, 
96 

HD 68 DATA165,1,72,41,254,133,1,32 

PK 78 DATA27,191,104,133,1,76,126,234 

KC 88 FORI=758T0767: READA: POKEI,A:NEXT 

SC 98 DATA198,1,32,27,191,230,1,76,126, 234 

PX 108 PRINT" {DOWN}(IF PLAN A DOESN'T WORK, TRY PL 
AN B){2 UP}" 

DM 118 PRINT"PLAN A OR B{2 SPACES}A{3 LEFT}"; 

QD 128 INPUTPS:1I=758:I1FPS="A"THENI=841 

DC 138 POKE835,1/256:POKE830, I-PEEK(835 )*256 

HA 140 FORI=@T0O73 : POKEI+48923, PEEK (1+59953) :NEXT 

HS 158 FORI=48997T049125:READA: POKEL,A:NEXT 

JQ 168 DATA169, 255,133,203,141,245,191,169,129 

AG 178 DATA133,245,169,235,133,246,162,8,142,141 

RG 188 DATA2,142,2,220,160,1,169,16,32,186,191 





INPUT/OUTPUT ROUTINES 


DATA232, 74,144, 249,136,16, 244,148 

DATA2, 220,173,245,191,201,16,248,35,165 
DATA203,162,3,157,230,191,189,238,191 
DATA261,255,208,6, 202,16, 246, 76 

DATA135, 234,133,203,162,9,189,231 
DATA191,157,230,191,232,224,3,144 
DATA245,76,221,234,72,57 

DATAG, 220,208,15,189, 246,191,201 
DATA65,144,18,41,63,13,141,2 
DATA141,141,2,104,96,197,203,144 
DATA7,133,203,104,141,245,191,96,72,165, 2083 
DATA201,255,1904,176, 241,144,233 
FORI=491267T049141 : POKEI , 255:NEXT: FORA=@TO4: 
READAS (A) :NEXT 

DATAUP, DOWN, LEFT, RIGHT, FIRE 
FORF=1T0O7:READFS(F):NEXT 

DATASHIFT, LOGO, SHIFT+LOGO, CTRL, SHIFT+CTRL, L 
OGO+CTRL, SHIFT+LOGO+CTRL 

POKE8@8 , 239: PRINTTTS : FORI=O0TO1:PRINT"JOYSTI 
CK PORT";I+1 

FORA=0TO04:PRINT"PRESS KEY FOR ";AS(A);"? "3; 
K=PEEK (197) : F=PEEK(653 ) : IFQTHENIFK<64ORFTHE 
NQ=8 : GOTO48@ 

IFK=64ANDF=6 THENQ=1 

GOTO37@ 

IFK=64THENK=K+F:AS=FS (F) : POKE198,@ 
POKE49142+1*5+4-A,K 

GETGS: IFGS>""THENAS=GS :GOTO042@ 

IFAS=" "THENAS="SPACE" 
TFAS=CHRS (13 ) THENAS="RETURN" 
POKE216,1:PRINTAS :NEXTA: PRINT: NEXTI : POKE198 
2 

PRINT"MAXIMUM BREAK LENGTH? 3{LEFT}"; :I=3 
GETAS : IFAS=CHRS (13) THENPRINT: PRINT: GOTO590@ 
IFAS<"@"ORAS>"9"THEN47@ 
I=VAL(AS):PRINTAS" {LEFT }"; :GOTO47@ 

POKE8@8, 237: POKE49947, 1: POKE49976,1 
PRINT"{2 DOWN}ARE YOUR CHOICES SATISFACTORY 
2? (Y/N)" 

GETAS : IFAS="N"THEN35@ 
IFAS="Y"THENSYS828 : PRINTCHRS (9); :NEW 
GOTO52@ 


Program 2. Worm (Demo) 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 


this program. 


HH 109 


HB 119 


POKE53281,6:PRINT" {CLR} {CYN}"TAB(13)"*** HU 
NGRY LIKE A WORM ***":A=RND(@O) 
POKE532808,08: POKE53281 ,0:FORI=0TO19 : POKE1983 
-1,16@:POKE19084+1,16@8:NEXTI 
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FORI=@TO21 : POKE1104+1*40,160:POKE1143+1*4@, 
168 :NEXTI 

FORI=@TO19 : POKE1984+1,160:POKE2923-1,160:NE 
XTI 

DIMS (999) :WH=292 : WT=WH: D=1 : POKEWH+1024,81:S 
(WH )=D: GOSUB32@ : GOSUB35@ 

GETAS :D1=D 

IFAS="J"THEND=-1 

IFAS="K"THEND=1 

IFAS="I"THEND=-4@ 

IFAS="M"THEND=4@ 

IFD=-D1THEND=D1 

S (WH ) =D: WH=WH+D 

IFPEEK (WH+1824 )=65 THENSC=SC+12 : GOSUB35@ :GOS 
UB32@ :GOSUB32@ :L=5 :GOTO24@ 

IFPEEK (WH+1@824 ) <>32THEN27@ 

POKEWH+19 24,81: IFLTHENL=L-1 :GOTO26@ 
POKEWT+1924 , 32 :WT=WT+S (WT) 

FORT=1T0O25 :NEXTT:GOTO15@ 

P=PEEK (WH+1924 ) : POKEWH+1924, 86:PRINT:PRINT: 
PRINTTAB(2)CHRS(18)"YOU RAN "; 
IFP=81THENPRINT"OVER YOURSELF" 
IFP=160THENPRINT" INTO A WALL" 

PRINT: PRINTTAB(2)CHRS(18)"GAME OVER":END 
REM *** GROW MUSHROOMS *** 

R=INT (RND(1)*96@)+1064:IFPEEK(R)<>32THEN329 
POKER, 65: RETURN 

REM *** PRINT SCORE *** 
PRINTCHRS(19)"SCORE: "RIGHTS ("@8@8@"+MIDS(ST 
R$(SC),2),5):RETURN 








List Pager 





Robert A. Stoerrle 


If you own a printer, you'll appreciate this short utility. It 
allows you to divide printouts into pages, insert headers, 
and print page numbers. For the Commodore 64 and 
128 in 64 mode. 


No matter how much you adjust the paper on a printer, it 
seems that one line always prints smack dab on the perfora- 
tion. When you separate the pages, the line is cut in half. 
Some printers have a skip-over-perf, or paging, option, 
accessed by setting a DIP switch or sending an escape code. 
On the 1526 or MPS-802, for example, you turn paging on 
with PRINT#4, CHR$(147). 

But this important feature is missing from the Commo- 
dore 1525, MPS-801, and MPS-803 printers. “List Pager” is a 
short machine language utility that offers a solution to the 
problem. It causes the printer to automatically skip to the top 
of the next page when it runs out of room on the current 
page. And, if you want, it will print both a header and the 
page number at the top of each page. Even if your printer al- 
ready skips over perforations, you'll find the header and page- 
numbering options useful. 


Special Loading Instructions 

Type in and save the List Pager loader program, which uses a 
special technique to store the machine language (ML) program 
in a string variable. The ML has to be saved to tape or disk as 
an object file (a pure machine language program) before you 
can activate it. 

When you run the program, you’re asked if you want to 
save it to tape (T) or disk (D). If you press D, you’re prompted 
for a filename. If you’re saving it to the same disk as the 
loader program, be sure to use a different program name. 
After you give it a name, the machine language portion of the 
program will be saved to disk. If you’re using tape, be sure to 
have a blank tape in the Datassette, preferably positioned to 
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the beginning. Press T, and the computer will prompt you to 
press RECORD and PLAY (tape users don’t name the program 
because the ML string becomes the name of the file). 

To load the ML program from disk, type: 


LOAD “filename’’,8,1: POKE56, PEEK(56)—1:NEW 
The first time you load it from tape, type this line: 
OPEN 1:CLOSE 1:POKE 56,PEEK(56) —1:CLR 


In both cases, you should be loading the object file that 
was created, not the loader program you typed in. Besides 
loading the program, these procedures clear all variables. 


Protecting the Cassette Buffer 

The cassette buffer is a section of memory that acts as a sort of 
pipeline between the cassette drive and the computer. It’s a 
safe place to store ML programs on the 64 because BASIC 
doesn’t use this area of memory. 

If the List Pager ML is in the cassette buffer when a pro- 
gram is loaded from tape, it will be overwritten because the 
data on tape is temporarily stored in the buffer. So, tape users 
will have to take measures to protect the cassette buffer while 
using List Pager. 

Tape users should never access tape files while List Pager 
is active. Before loading, saving, or opening, press RUN/ 
STOP-RESTORE to turn off List Pager. After you have loaded 
or saved a program, List Pager will be gone, overwritten by 
the program data. To load it back in, put the cassette containing 
the ML part (the object code) of List Pager into the Datassette 
and enter 


OPEN1: CLOSE1 


(You should not enter the POKE to 56 unless this is the first 
time you're loading List Pager.) The program is built into the 
tape file header and will load directly into the cassette buffer. 
You'll have to enter the SYS given below to start it up. 

The order of loading programs is just the opposite for disk 
owners. Tape users load the program to be listed first and 
then load List Pager (because of the cassette buffer). With a 
disk drive, you must load List Pager first (because of the NEW 
instruction after the LOAD and POKE). Once it’s loaded, you 
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can load the program or programs to be listed. Disk owners 
need to load the ML only once; disk access doesn’t affect the 
cassette buffer. 


Telling It What to Print 

Once you've loaded List Pager, following the instructions 
above, you must activate it and tell it what to do at the top of 
each page. The format for this command is 


SYS 833,Header” 


If you want a header at the top of each page, put it inside 
quotation marks. If you want the page number to be printed, 
insert a number sign (#) into the header at the point where 
you want the page number to be printed. For example, 


SYS 833,“LIST PAGER.......PAGE #” 


The designated header will be printed at the top of each 
page. Pages will be numbered consecutively, starting at page 
1. If you do not want a header at the top of each page, don’t 
put anything between the quotation marks: 


SYS 833," ” 


You must always use a comma and quotation marks, even 
if you do not want to print a header. 

After you have entered the header line, position the paper 
so that the printhead will start printing a few lines down to 
allow for a top margin. If you’ve not already done so, load the 
program you want to list. (Remember, tape users should load 
the program to be listed before loading List Pager.) Type the 
following line: 


OPEN 1,4:CMD 1:LIST 


The printer should print the header, if you have specified 
one, and start to list the program. When it’s finished, type 


PRINT #1:CLOSE 1 


List Pager will remain in effect until you press 
RUN/STOP-RESTORE. That is, it will continue to separate 
pages and print the header at the top of each page. 
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Options 
The program is written for standard 812-by-11-inch paper, 
with 6 lines per inch—a total of 66 lines on each page. If 
you're using nonstandard paper, you can modify the param- 
eters. Some European countries, for example, use slightly 
longer paper. The program defaults to 54 printed lines on a 
page of 66 lines. This leaves 2 lines for the header (one 
printed, one blank) and 10 lines between pages (five at the 
top, five at the bottom). 

After you’ve loaded the program, you can change the 
number of printed lines per page with this POKE: 


POKE 926,x +4 


where x is the desired number of printed lines per page. For 
example, if you want to print 38 lines per page, you would 
type POKE 926, 38+4 after the program is loaded (but before 
you enter the SYS). The default number of printed lines per 
page is 54. 

To change the total number of lines per page (printed and 
unprinted), enter 


POKE 934,x 


where x is the number of lines per page. The default number 
is 66. 


Not Just for Program Listings 

List Pager is designed to work with both dot-matrix and letter- 
quality printers. However, it will work only with a printer 
with a device number of 4. Also, it will not affect listings on 
the screen. It can be used for a variety of purposes, not just 
program listings. For example, you can use it within BASIC 
programs to divide output into pages. 

List Pager works by inserting a ‘“wedge”’ into the routine 
that the computer uses to print a character. Every time the 
computer wants to print a character, it goes to the wedge pro- 
gram first. If the character is a carriage return and the com- 
puter is at the bottom margin of a page, it skips to the next 
page and prints the header. If the character is not a carriage 
return, it’s sent to the normal print routine. 

To make List Pager work, the cassette buffer is used to 
hold the program. Because of this, some conflicts may arise. 
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Using the cassette drive while this routine is in effect will gen- 
erally cause the system to lock up. In addition, other programs 
which reside in the cassette buffer, such as “The Automatic 
Proofreader,’”’ cannot be used at the same time as List Pager. 


List Pager 
See special instructions in article before running. 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


PF 108 PRINT"{CLR}{3 DOWN} *** LIST PAGER ***";FOR 
I=1T0185 : READA: FS=FS$+CHRS$ (A) :NEXT 

MB 1198 PRINT"{2 DOWN}SAVE ON {RVS}T{OFF}APE OR 
{RVS}D{OFF} ISK?" 

FD 128 GETAS:IFAS<>"T"ANDAS <>"D"THEN12@ 

DX 138 PRINT" {CLR}":IFAS="D"THEN15@ 

FC 148 OPEN1,1,1,F$:CLOSE1:END 

KG 158 INPUT"FILENAME";NS:OPEN1,8,4,NS+",P,W":PRIN 
T#1,CHRS$(65)CHRS(3)FS:CLOSE1 

FM 168 DATA 169,1,133,251,173,39,3,201,3,248,9,141 

XS 178 DATA 251,3,173,38,3,141,258,3,169,127,141,3 
8 

AA 188 DATA 3,169,3,141,39,3,32,115,9,32,115,8,16@ 

BQ 198 DATA 8,132,252,177,122,240,9,201,34,2408,6 

SA 208 DATA 145,55,200, 208,243, 24,132,253,152,191 

HM 218 DATA 122,133,122,96,132,254,72,165,154,2@1 

FM 228 DATA 4,208,58,165,252,208,6,32,192,3,32,242 

DG 238 DATA 3,1904,72,201,13,208,34,32,242,3,164,25 
2 

GE 248 DATA 192,58,208,21,32,242,3,200,192,66,288 

KA 258 DATA 248,169,9,133,252,165,251, 248, 24,185,1 

PF 268 DATA 216,133,251,104,164, 254, 96,104,164, 254 

JD 278 DATA 76,249,3,165, 253,248, 23,1680,8,196,253 

AK 288 DATA 248,17,177,55,201,35,208,5,32,222,3,16 
9 

EJ 298 DATA 8,32,249,3,200,208,235,76,242,3,165,25 
1 

XS 300 DATA 74,74,74,74,9,48,32,249,3,165,251,41,1 
5 

DP 318 DATA 9,48,76,249,3,230,252,169,13,76,249,3, 
76 
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USR Joystick Reader 


Tim Gerchmez 





Programming the joystick in BASIC may give disappoint- 

ing results. It’s just too slow. This program offers the speed 

of machine language for use in BASIC programs. For the 
Commodore 64. 


One of the most important decisions a computer manufacturer 
makes when designing a new computer is the number of fea- 
tures to include. The more features, the higher the cost. In or- 
der to keep the price of the 64 competitive while still 
maintaining superior sound and graphics, Commodore decided 
to take a few shortcuts with the BASIC language. Simply read- 
ing the joystick, for example, requires a complex series of 
POKEs and PEEKs. It’s not only complicated but also slow. 

“USR Joystick Reader” makes reading a joystick quicker 
and easier. It employs the USR function to simulate the JOY 
function found in the much larger versions of BASIC included 
with the Plus/4, 16, and 128. 


The Mysterious USR 

USR (which stands for user) is not a fitting name for this func- 
tion. It’s hardly used at all because most people don’t know 
what it does or how to make it work. 

USR is like a cross between SYS and EN. Instead of the 
function being defined in BASIC by using the DEF FN state- 
ment, it’s written in machine language (ML). First, you either 
POKE or load the ML into memory. Then you tell the com- 
puter where your ML routine is by POKEing locations 785 and 
786 with the low byte and high byte of the starting address. 

Now that you've defined the function, you’re ready to put 
USR into your BASIC program. Like FN, USR is followed by a 
numeric expression inside parentheses. It can be a number as 
in USR(6), a variable like USR(X), or a complex expression 
such as USR(PEEK(X) + 256*PEEK(X+1)). When the USR 
function is executed, the computer evaluates the expression 
within the parentheses and puts that value into floating-point 
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accumulator 1 (FAC1). (For more information on FAC1 and 
USR, refer to Programming the 64, published by COMPUTE! 
Books.) 

USR then executes your ML routine, which takes the 
floating-point number in FAC1, processes it in some manner, 
and stores the result back into FAC1. If you end your routine 
with an RTS instruction, the computer returns to BASIC and 
makes USR equal to the new value in FAC1. USR can then be 
treated like any other value as in Y=USR(X) or PRINT USR(3). 

USR is easier to use than SYS because you can pass val- 
ues between BASIC and ML, and you don’t have to specify an 
address. It’s faster than FN because the function is defined in 
ML. But it’s more difficult to set up than either one. 


Putting USR to Work 

Fortunately, you don’t have to know anything about USR to 
add USR Joystick Reader to your own programs. Just type it in 
and save it on tape or disk. Now type RUN. The program is a 
BASIC loader that POKEs an ML joystick reader into memory 
and points the USR vector to it. If DATA ERROR is displayed, 
you've made a typing error in the DATA statements, and you 
should correct your mistake and resave the program. 

Now, instead of typing a series of PEEKs and POKEs, just 
use A=USR(1) to read a joystick in port 1 or A=USR(2) to 
read port 2. The value of A will be a number from 1 through 
8, corresponding to the eight directions, and 0 if the joystick is 
in the center position (see figure). To read the fire button, use 
B=USK(3) for port 1 or B=USR(4) for port 2. The value of B 
will be 1 if the button is pressed and 0 if it’s not. 

To use USR Joystick Reader in your own program, include 
it at the beginning. You can add the following lines to the 
loader program to check whether the joystick (port 1) is point- 
ing to the right: 

200 A=USR(1):IF A=2 THEN PRINT “RIGHT” 
220 GOTO 200 


You can also check for the fire button by adding this line: 
210 B=USR(3):IF B=1 THEN PRINT “FIRE” 
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Joystick directions 


1 





USR Joystick Reader 


For mistake-proof program entry, use “The Automatic Proofreader,” Appendix B, to type in 
this program. 


GE 18 FORA=679T0743 :READB:CH=CH+B: POKEA, B:NEXT: IFC 
H<>5899THENPRINT"DATA ERROR":END 

EP 28 POKE785,167:POKE786, 2:PRINT" {CLR} {DOWN}ACTIV 
ATED" 

BF 38 DATA 32,247,183,165,20,2@1 

GD 48 DATA 3,176,26,73,3,17@ 

CM 5@ DATA 189,255,219,41,15,133 

XF 68 DATA 2,169,15,56,229,2 

HP 78 DATA 178,189,221,2,168,169 

QC 88 DATA 8,32,145,179, 96,168 

GF 98 DATA 8,41,1,179,189,2 

RS 108 DATA 220,41,16,2808,1,20@ 

XD 118 DATA 169,8@,32,145,179,96 

PS 128 DATA @,1,3,0,4,8,7,8,2,5,6 
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Disk Title Changer 


Michael Broussard 





One step in organizing any growing disk library is renam- 
ing disks. If you have a 1541 disk drive, this eight-line 
BASIC program does the job efficiently and fast. The 

article also explains how to read from and write to disk 
sectors. For the Commodore 64 and 128 in 64 mode. 


Before you can do anything useful with a disk, you have to 
format it. And when you format a new disk, you have to 
choose a name for it. You may name it something ordinary, 
like DISK 15, if it’s number 15 in your collection. Or you may 
give it an unusual name like UNICORN. 

Many people name their disks according to the kind of 
programs that are on them: GAMES 1 or UTILITIES 3/87, for 
example. Usually, though, you’re not sure what sort of pro- 
grams or files will ultimately be stored on a new disk. As it 
fills up, you may wish you had named it something else. Al- 
though the Commodore disk operating system (DOS) provides 
an easy way to rename files, it’s not such a simple task to re- 
name a disk. This eight-line BASIC program does the job sim- 
ply. You'll see how it works a little later, but first let’s see how 
to use it. 

A word of caution: The punctuation in the program is ex- 
tremely important. When you enter the program, watch 
closely for quotation marks, parentheses, commas, colons, and 
semicolons. A typing mistake could potentially ruin one of 
your disks. It’s a good idea to use ““The Automatic Proof- 
reader” while you’re entering the program. 

Using the program is easy—load it (but don’t type RUN 
yet) and then insert a disk whose name you want to change. 
Make sure the write-protect notch is not covered. Next, type 
RUN. The current name of the disk will be displayed, and 
you're prompted for a new one. Enter the new name and 
press RETURN; the disk directory will be updated and the 
name of the disk changed. That’s all there is to it. 
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Disk Organization 

You don’t have to understand how the program works to use 
it, but if you’ve been planning to learn some of the disk com- 
mands, this is a good time to begin. First, let’s take a brief 
look at how the disk operating system (DOS, for short) stores 
information on the disk. 

Data on a disk is organized into 35 concentric rings, or 
tracks. These tracks are numbered: Track 1 is the outermost 
track and track 35 is the last track, near the center of the disk. 
Each track, or “‘lap,’”” around the disk is further divided into 
blocks, or sectors, which can store 256 bytes (characters) of 
data each. 

Most of the space on a disk is available for storing pro- 
grams or files. But a few sectors are used by DOS as a direc- 
tory to store housekeeping information, such as the disk’s 
name, the names of all the files on the disk, and what sort of 
files they are (program files, sequential files, and so forth). In 
addition, a block availability map (BAM) provides a chart tell- 
ing which sectors are not being used so that DOS knows 
where it may put new files. 

Whenever you save a program, a new file entry is placed 
in the directory, and the BAM is updated to reflect which 
blocks have been used. Conversely, when a file is scratched, 
the file entry is marked as free, and the BAM is changed so 
that the disk blocks that were used by the file are freed up. 

But what does all this have to do with changing the name 
of the disk? Usually, the commands given to DOS are ones 
that manipulate files. These high-level commands cause the 
disk drive to execute fairly complex routines. When you load a 
program, DOS takes care of reading the directory to find out 
whether your program is on the disk. Then it finds out where 
all the blocks of your program are, and it transfers them from 
disk to the memory of the computer. You don’t care where all 
the pieces are—all you know is that your file is on the disk. 
DOS does the rest. 

From inside a program, however, it’s possible to do more 
primitive, low-level disk operations. For example, by naming a 
specific track and sector, you can read or write specific bytes 
from a particular block of data on the disk, as opposed to 
reading or writing a whole file, which may consist of many 
blocks. By using this feature, you can change the name of a 
disk. Now let’s examine the program, line by line. 
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A Close-Up Look at Program Operation 

The first thing the program does (line 10) is close the error 
channel (15) and then reopen it, sending it the Initialize com- 
mand (“I0:’’) to force the disk drive to read the BAM. This is 
done to make sure there are no side effects from either a pre- 
vious disk or a previous program that may have opened files 
on the disk and not closed them. Note that you can close a file 
that’s closed, but you'll get an error if you try to open an 
already-open file. 

Next, channel 5 (an arbitrary choice) is opened as a buffer 
for reading from the disk. The number sign tells the drive to set 
aside one of its internal buffers. If you entered OPEN5,8,5,“#2”, 
it would specify buffer 2. Without a number (‘#’’), it means 
“we'll accept any available buffer.”” In most cases, you don’t 
need to worry about which buffer is used. A string (B$) is then 
set to the null string (“ ’’”). The current name of the disk will 
be read into BS. 

Track 18, sector 0, contains directory header information, 
including the disk name. This is the block we’re interested in 
changing, so we tell DOS to read the directory header block 
with the User-1 (U1:) block-read command in line 20. Always 
read disk blocks with the U1: command; B-R (Block Read) is unre- 
liable. Notice the four numbers that follow U1: 5, 0, 18, and 0. 
The 5 is the channel number (from OPEN 5,8,5 in the previous 
line). The first 0 is the drive number—1541s are always drive 
0 and (usually) device 8—and 18,0 means track 18, sector 0. 

The U1: command reads a block from disk and puts it 
into a memory buffer inside the disk drive. Your computer 
doesn’t have the information, however; it’s still inside the 
drive. The second part of line 20 makes the drive set the 
buffer pointer (““B-P’’) to character number 144. B-P is fol- 
lowed by the channel number and character number. As you 
may have guessed, the name of the disk starts at 144 (hex $90). 

We could read the whole block from the buffer, except for 
a small problem. Each block contains 256 bytes, and Commo- 
dore BASIC allows a maximum of 255 characters in a string. 
We'd have to split the information into at least two strings to 
make it work correctly. The B-P command allows us to read 
only the disk name, and later only the name will be changed. 

Line 30 of the program extracts the 16 characters of the 
disk name from the buffer inside the drive. The line that 
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makes A$ into CHR$(ASC(A$ + CHR$(0))) is not really neces- 
sary, but it’s a good idea to include it if you plan to read other 
sectors from disk. A zero sometimes translates into a null 
string rather than a CHR§(0). This conversion from ASCII to 
CHR$ takes care of any potential problems. 

Line 40 prints the current disk name, and line 50 then 
asks for a new name. A check is made to be sure it’s 16 char- 
acters or fewer (16 is the maximum number of characters al- 
lowed for a filename). If necessary, line 60 pads the new name 
with shifted spaces to make it exactly 16 characters long. 

In line 70, we use B-P again, to point the buffer to charac- 
ter 144. The new disk name, N§, is printed to channel 5 and 
into the buffer. The semicolon following N$ guarantees that a 
carriage return (CHR$(13)) is not appended to the end of the 
disk name. 

But we haven't changed the name yet. What has hap- 
pened so far is that a sector has been read into a disk buffer, 
the disk name has been extracted, and a new name has been 
sent to the buffer. The buffer has been changed, but nothing 
has been written to the disk. We have to finish the job with 
the User-2, or U2: block-write command. B-W (Block Write), 
like B-R, is unreliable. Always use U2: to write a block to disk. 
Now we've successfully renamed the disk. 

The last steps (line 80) are to read the error channel and 
initialize the disk. If everything worked properly, you should 
see DISK STATUS:0 OK. 

Why initialize the disk again? Try this experiment: Re- 
move the PRINT#15,"10” from line 80. Now run the program 
and change the name of a disk. LOAD“’$”’,8 and LIST. Al- 
though the disk name has been changed, you'll see the old 
name. If you remove the disk, turn the drive off, then back on, 
and load and list the directory, you'll see that the disk name 
has been changed. When the 1541 was initialized in line 10, 
the block availability map and disk header were read into a 
buffer. After the name change, you loaded the directory, but 
the disk drive looked at the two-letter ID and concluded that it 
didn’t need to read the header again because it was working 
with the same disk as before. Thus, you saw the old name. 
The disk drive recognizes disks by their two-letter IDs. If you 
have several disks with the same ID, you may run into prob- 
lems. Initializing the drive helps you avoid the difficulties as- 
sociated with duplicate IDs. 
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These eight lines make renaming disks as easy as renam- 
ing files. 


Disk Title Changer 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


SX 18 CLOSE15:OPEN15,8,15:PRINT#15,""I8:":CLOSE5:OP 
EN5,8,5, "#"sBsa"" 

QQ 28 PRINT#15,"U1:5,90,18,0":PRINT#15, "B-P:5,144" 

HJ 38 FORJ=1T0O16:GET#5,AS$ :AS=CHRS (ASC (AS+CHRS(@) ) ) 
: BS=BS+AS :NEXT 

ER 40 PRINT:PRINT"DISK NAME: ":BS 

EA 5@ INPUT" NEW NAME";:NS:IFLEN(NS)>16THENPRINT"MA 
XIMUM LENGTH IS 16":GOTO4@ 

DS 68 IFLEN(NS)<16THENNS=NS+CHRS (168) :GOTO6G 

PM 706 PRINT#15,"B-P:5,144":PRINT#5,NS; :PRINT#15, "U 
2:5,80,18,0":CLOSE5 

PP 80 INPUT#15,ER,ERS:PRINT"DISK STATUS: "ER;ERS$S:PR 
INT#15, "I9":CLOSE15:END 
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John R. Hampton 


This short machine language utility reads a program from 
tape into memory, allowing you to recover programs that 
have become unloadable. For the Commodore 64 and 
128 in 64 mode. 


The Commodore Datassette is an inexpensive and generally 
reliable device on which to store programs and data. But 
sooner or later, you'll be unfortunate enough to combine a 
very long program with a bad tape. After saving the program, 
you won't be able to load it back into the computer. This is 
one reason to keep backup copies of all important programs. 

What do you do if you don’t have a backup and don’t feel 
up to retyping the entire program? “Tape Program Rescue”’ 
may be the answer. 


Fixing a Bad SAVE 

A program on tape can be scrambled or destroyed by a num- 
ber of things: magnetism, a faulty coating on the tape, or 
ripped or creased tape. You may not be able to rescue the en- 
tire program, but you should be able to recover at least a por- 
tion, saving a lot of retyping time. 

Tape Program Rescue is written in machine language 
(ML), but uses BASIC to POKE the program into memory. 
When you run it, the problem program is loaded from tape 
into memory, overwriting the BASIC part of Tape Program 
Rescue. For this reason, you should save Tape Program Rescue 
before you attempt to use it, or your typing will be lost. 

To use it, load (but don’t run) Tape Program Rescue. 
Then put the problem tape in the cassette drive and fast- 
forward the tape to a spot just before the beginning of the 
program to be rescued. 

Now type RUN. The short ML program-rescue routine 
will be POKEd into memory, and you should see the CUT 
PROGRAM OFF AT LINE NUMBER? prompt. Enter a line 
number from the program. Tape Program Rescue will read up 
to, but not including, that line. The remaining lines will not 
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load into memory. (You can also use this utility to delete the 
last portion of a program on a good tape.) 

You may have to experiment a bit. If you can’t load up to 
line 1100, try cutting off the program at 1000 or 740 or some 
smaller number. If it works, part of the previously unloadable 
program will have been loaded into memory and you can save 
that part to a good tape. You may still have to retype the last 
part of the program. 


Setting Up Memory 

Tape Program Rescue loads programs into the same section of 
memory they were saved from. This means you can’t use a 64 
to rescue 128 programs, nor can you use a 128 to recover 64 
programs. The memory configuration when you rescue must 
be the same as when you saved. 

Also, the line number used for cutting off the program 
must be a real line number. If a program has lines 400 and 
410, and you try to cut it off at 405, Tape Program Rescue will 
not operate properly. 


Tape Program Rescue 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


GA 108 A=681 

KX 118 READ HS:IF HS="**" THEN 180 

XH 128 FOR I=1 TO 2:J=ASC(MIDS(HS,I,1))-48 

SJ 138 IF J>9 THEN J=J-7 

MH 148 IF I=l1 THEN D=J*16 

AR 158 IF I=2 THEN D=D+J 

GP 168 NEXT:POKE A,D 

SR 178 A=A+1:GOTO 112 

XK 188 PRINT"CUT PROGRAM OFF AT":PRINT"LINE NUMBER 
"s:INPUT LN 

FE 198 H=INT(LN/256) :L=LN-H* 256 

BG 208 POKE 679,L:POKE 6808,H 

XS 218 SYS 681 

CQ 228 DATA A9,80,AA,A8,20,BD,FF,E8, 8A, 20, BA, FF, 98 
,A6,2B,A4, 2C, 20,D5,FF,A6, 2B,A4 

MK 238 DATA 2C,86,FB,84,FC,A9,00,Bl,FB,85,FD,C8,Bl 
,FB,85,FE,C8,Bl,FB,CD,A7,02,D@ 

AK 248 DATA @8,C8,Bl1,FB,CD,A8,02,F0,07,A6,FD,A4,FE 
,4C,C1,902,A0,00,98,91,FB,C8,91 

JE 258 DATA FB,A5,FB,18,69,02,85,2D,A5,FC,69,09,85 
,2E,00, ** 
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Stop and Go 


Jim Pejsa 





When a program is running and the telephone rings, what 
do you do? This short machine language routine provides 
a pause button that temporarily halts the program. It 
also works on program listings. For the Commodore 64 
and 128 in 64 mode. 


A very useful function found on many other computers is 
missing from Commodore computers. Many computers allow 
a programmer to stop and restart a program listing or run by 
using CTRL-S and CTRL-Q. 

Pressing the CTRL key on the 64 or the Commodore key 
on the 128 will slow the listing down, but it’s often necessary 
to stop the listing if you want to study a program carefully. 
Having to continue the listing by retyping LIST followed by 
some line numbers (if the program is long) is an inconven- 
ience. Additionally, there are times when you want to stop a 
program (maybe to study some output) and restart it at will. 

Since I was eager to try some machine language program- 
ming, I decided to write a program to add this feature. CTRL-S 
(for stop) and CTRL-Q (for restart) seem to be standard for 
these functions on many computers. The program is designed 
in such a way that the real time clock will continue to be up- 
dated while processing is stopped. 

The machine language for the program is in the DATA 
statements and is loaded by the BASIC program. Simply type 
in and save the program and then run it to load the machine 
language. The program loads, beginning at location 679 
($02A7), in some unused locations below the BASIC program 
area, so it will not interfere with any BASIC programs. The 
SYS statement in line 30 starts the machine language program. 
Unfortunately, if RUN/STOP-RESTORE is ever used to stop a 
program, you will find that the CTRL-S and CTRL-Q functions 
become inoperative. You can get them back by typing SYS 679. 

Briefly, here’s how the program works. When it is initially 
started with SYS 679 in BASIC, the hardware interrupt (IRQ) 
vector is changed to point to this program. The program is 
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accessed each time the hardware interrupt occurs (every 1/60 
second). The program checks for a CTRL-S keypress. If one is 
detected, it stops the listing or run and then checks for CTRL-Q. 
When CTRL-Q is pressed, the listing or run is restarted. 


Stop and Go 


For mistake-proof program entry, use ‘The Automatic Proofreader,” Appendix B, to type in 
this program. 


SC 18 FORI=679T0743:READ A:X=X+A: POKEI,A:NEXT 

SX 20 IFX<>7291THENPRINT"ERROR IN DATA STATEMENTS. 
":STOP 

DD 38 SYS679 

PD 4@ DATA 128,169,180,141,20,3,169 

DA 58 DATA 2,141,21,3,88, 96,173 

MX 60 DATA 141,2,201,4,208,42,165 

FP 78 DATA 197,201,13,208,36,120,169 

EX 8@ DATA 49,141,20,3,169,234,141 

XP 98 DATA 21,3,88,173,141,2,291 

GM 108 DATA 4,2908,249,165,197,201,62 

DQ 118 DATA 298, 258,128,169,1898,141,2@ 

RJ 120 DATA 3,169,2,141,21,3,/76 

AF 138 DATA 49,234 
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Charles Kluepfel 


Turn your keyboard into a “Numeric Keypad” for more 
efficient numeric input than the standard keyboard allows. 
The program lets you toggle to standard keyboard or 
numeric keypad. For the Commodore 64. 


If your Commodore 64 had a numeric keypad, you could type 
in numbers much faster and with fewer errors than by using 
the standard number keys. Here’s a program that offers this 
handy feature by redefining a set of keys to represent numbers 
instead of letters. 

When you run ‘’Numeric Keypad,” your computer will 
behave normally until you press CTRL-N. Then, the cursor 
will disappear until you press another key. The M, J, K, L, U, 
I, and O keys will become, respectively, 0, 1, 2, 3, 4, 5, and 6. 
By using these along with the numeric keys 7, 8, and 9, you 
will have a numeric keypad. Pressing CTRL-N toggles the 
keyboard back into its normal mode (again causing the cursor 
to disappear until you press a key). 

You can put press-apply transfer numbers on the affected 
keys to help you remember which number each key repre- 
sents. Use very small ones so that they won’t interfere with 
the normal identification of the keys. (Transfer letters and 
numbers are available at art supply stores.) 


Using Numeric Keypad in a Program 
You can also activate and deactivate the numeric keypad from 
a program, in anticipation of numeric or non-numeric input, 
by POKEing location 50216 with 255 or 0, respectively. The 
user can always override this with CTRL-N. (CTRL-N is never 
passed to the program, but serves only the toggle function.) 
Just don’t POKE any value other than 0 or 255, as that would 
prevent you from toggling with CTRL-N. 

If you want the keypad to start out activated, change the 
next-to-last DATA item in line 520 from 0 to 255. 
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Redefining the Keys 

To redefine the keys, we transfer the Kernal from ROM into 
RAM, change it to intercept the M, J, K, L, U, I, and O keys, 
and convert the data to the appropriate numbers. 

Lines 3 and 4 POKE the machine language into an un- 
used area of memory from the DATA statements in lines 
500-560. 

Lines 10 and 20 transfer the BASIC interpreter and the 
Kernal from ROM to RAM with the same addresses so that we 
can modify them. The Commodore 64 Programmer's Reference 
Guide, page 261, states that turning off bit 1 in location 1 
switches only the Kernal addresses to RAM; actually, it affects 
both the Kernal and BASIC address ranges. 

Line 25 merely signals that the transfer is complete. (It 
takes about a minute). 


The Intercept Routine 

Line 30 sets up the routine that intercepts keyboard characters. 
It is put at the end of the routine that pulls a character from 
the keyboard buffer. 

Finally, line 40 activates the modified Kernal by turning 
off bit 1 of location 1 (changing the value in location 1 from 
55 to 53). Once this has been done, the change is made, and 
pressing CTRL-N toggles between a numeric keypad and the 
normal usage of the M, J, K, L, U, L and O keys. 


A Color Memory Bonus 

A couple of bonuses are included in lines 31 and 32. Line 31 
changes the portion of the Kernal, on newer 64s, that puts the 
background color into the color memory for screen locations 
being cleared. Instead of putting the background color there, it 
will now put 1 (for white), so if addresses 1024-2023 (deci- 
mal) are POKEd, a character will appear. 


Choose a Color 

In the normal mode, printed characters are light blue on a 
dark blue background, while POKEd characters are white. 
Change the POKE to location 58587 in line 31 to some other 
number if you would like a color different from white for 
POKEd screen characters. Of course, if you have an older 64 
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which does not clear color memory to the background color, 
leave out this patch (line 31). 

Line 32 eliminates the printing of a question mark and 
space in an INPUT statement prompt. This makes it possible 
to write 


100 INPUT “TITLE:”;T$ 





and have the resulting screen look like this: 
TITLE:COMPUTE!’s GAZETTE 


In any place where you really want the question mark 
and the space, you can put them inside the quotation marks. 


Numeric Keypad 


For mistake-proof program entry, use ‘The Automatic Proofreader,”” Appendix B, to type in 
this program. 


EK 3 FORI=5@176T0598261 : READX: POKEI ,X 

DM 4 NEXT 

FS 18 FORI=49969T049151:POKEI, PEEK(I) :NEXT 

PG 20 FORI=57344T065535:POKEI, PEEK(I) :NEXT 

CG 25 PRINT"TRANSFERRED" 

AQ 3@ POKE 58823,76: POKE58824, 0: POKE58825,196 

KJ 31 POKE58586,169:POKE58587,1:POKE58588, 234 

AM 32 FORI=44929T044934:POKEI,234:NEXT 

DJ 48 POKE 1,53 

GA 5@@ DATA2@1, 14, 248, 65, 44, 48, 196, 2498, 28, 
201, 85, 248, 48, 201 

KA 518 DATA73, 240, 40, 201, 79, 248, 48, 201, 74, 
240, 16, 201, 75, 248 

FR 528 DATA16, 281, 76, 248, 16, 281, 77, 248, 28, 
88, 24, 96, 8, 169 

HK 538 DATA 49, 208, 248, 169, 5@, 208, 244, 169, 
{SPACE}51, 208, 248, 169, 52, 2088 

EK 548 DATA 236, 169, 53, 298, 232, 169, 54, 298, 
{SPACE}228, 169, 48, 208, 224, 169 

QP 55@ DATA 255, 77, 48, 196, 141, 48, 196, 88, 16 
5, 198, 248, 252, 120, 76 

BM 568 DATA 189, 229 
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Appendix A 
How to Type In Programs 


To make it easy for you to know exactly what to type when 
you're entering one of these programs into your computer, we 
have established the following listing conventions. 

Generally, program listings contain words within braces 
that spell out any special characters: {DOWN}, for example, 
means to press the cursor-down key; {5 SPACES} means to 
press the space bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key is under- 
lined in our listings. For example, S means to type the S key 
while holding the SHIFT key. This will appear on your screen 
as a heart symbol. If you find an underlined key enclosed 
within braces—for example, {10 N}—you should type the key 
as many times as indicated. (In this example, you would enter 
ten shifted N’s). 

If a key is enclosed within special brackets, [<>], you 
should hold down the Commodore key while pressing the key 
inside the special brackets. (The Commodore key is the key in 
the lower left corner of the keyboard.) Again, if the key is pre- 
ceded by a number, you should press the key as many times 
as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
within braces. You can enter these characters by holding down 
the CTRL key while typing the letter inside the braces. For ex- 
ample, {A} indicates that you should press CTRL-A. 


Quote Mode 

You know that you can move the cursor around the screen 
with the CRSR keys. Sometimes a programmer will want to 
move the cursor under program control. That’s why you see 
all the {LEFT}’s, {HOME}’s, and {BLU}’s in our programs. 
The only way the computer can tell the difference between di- 
rect and programmed cursor control is the quote mode. 

Once you have pressed the quote key (the double quota- 
tion mark, SHIFT-2), you are in the quote mode. If you type 
something and then try to change it by moving the cursor left, 
you'll only get a bunch of reverse-video lines. These are the 
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symbols for cursor left. The only editing key that isn’t pro- 


grammable is the INST/DEL key; you can still use INST/DEL 


to back up and edit the line. Once you type another quote, 


you are out of quote mode. 
You also go into quote mode when you insert spaces into 
a line. In any case, the easiest way to get out of quote mode is 


just to press RETURN. You'll then be out of quote mode and 
you can cursor up to the mistyped line and fix it. 


In order to insure accurate entry of each program line, we 


have included an aid to typing in programs. Please use “The 
Automatic Proofreader’’ (Appendix B) for entering programs. 

Refer to the following table when you’re entering cursor 
and color control keys: 


When You 


Read: 
{CLR} 


{HOME} 
{UP} 
{DOWN} 
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Appendix B 
The Automatic Proofreader 





Philip I. Nelson 


“The Automatic Proofreader’ helps you type in program list- 
ings and prevents nearly every kind of typing mistake. 

Type in the Proofreader exactly as it’s listed. Since the 
program can’t check itself, type carefully to avoid mistakes. 
Don’t omit any lines, even if they contain unfamiliar com- 
mands. After finishing, save a copy or two on disk or tape 
before you run it. This is important because the Proofreader 
erases the BASIC portion of itself when you run it, leaving 
only the machine language portion in memory. 

Next, type RUN and press RETURN. After announcing 
which computer it’s running on, the Proofreader displays the 
message “Proofreader Active.’’ Now you're ready to type in a 
BASIC program. 


Using the Proofreader 

Once the Proofreader is active, you can begin typing in a 
BASIC program as usual. Every time you finish typing a line 
and press RETURN, the Proofreader displays a two-letter 
checksum in the upper left corner of the screen. Compare this 
result with the two-letter checksum printed to the left of the 
corresponding line in the program listing. If the letters match, 
you can be almost certain the line has been typed correctly. If 
the letters don’t match, check for your mistake and correct 
the line. 

The Proofreader ignores spaces that aren’t enclosed within 
quotation marks, so you can omit or add spaces between key- 
words and still see a matching checksum. However, since 
spaces inside quotation marks are almost always significant, 
the Proofreader pays attention to them. For example, 


10 PRINT’ THIS IS BASIC” 
will generate a different checksum than does 
10 PRINT” THIS ISBA — SIC” 


A common typing error is transposition—typing two 
successive characters in the wrong order, like PIRNT instead 


133 


APPENDIX B 


of PRINT or 64378 instead of 64738. The Proofreader is sensi- 
tive to the position of each character within the line and thus 
catches transposition errors. 

The Proofreader does not accept keyword abbreviations 
(for example, ? instead of PRINT). If you prefer to use abbrevi- 
ations, you can still check the line: LIST it after you’ve typed 
it in, move the cursor back to the line, and press RETURN. 
LISTing the line substitutes the full keyword for the abbreviation 
and allows the Proofreader to work properly. The same tech- 
nique works for rechecking programs you've already typed in. 

If you’re using the Proofreader on the 128, do not perform 
any GRAPHIC commands while the Proofreader is active. When 
you perform a command like GRAPHIC 1, the computer 
moves everything at the start of BASIC program space—in- 
cluding the Proofreader—to another memory area, causing the 
Proofreader to crash. The same thing happens if you run any 
program with a GRAPHIC command while the Proofreader is 
in memory. 

Though the Proofreader doesn’t interfere with other 
BASIC operations, it’s a good idea to disable it before running 
another program. However, the Proofreader is purposely diffi- 
cult to dislodge: It’s not affected by tape or disk operations, or 
by pressing RUN/STOP-RESTORE. The simplest way to dis- 
able it is to turn the computer off and then on again. A gentler 
method is to SYS to the built-in reset routine (SYS 64738 for 
the 64; SYS 65341 for the 128). This reset routine erases any 
program in memory, so be sure to save the program you’re 
typing in before entering the SYS command. 

If you own a Commodore 64, you may wonder whether 
the Proofreader works with other programming utilities like 
“MetaBASIC.” The answer is generally yes, if you activate the 
Proofreader after installing the other utility. For example, first 
load and activate MetaBASIC; then load and run the Proofreader. 

When using the Proofreader with another utility, you 
should disable both programs before running a BASIC pro- 
gram. While the Proofreader seems unaffected by most utili- 
ties, there’s no way to promise that it will work with any and 
every combination of utilities you might want to use. The 
more utilities activated, the more fragile the system becomes. 
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The Automatic Proofreader 


10 VEC=PEEK(772)+256* PEEK (773) :LO=43 :HI=44 

286 PRINT “AUTOMATIC PROOFREADER FOR ";:IF VEC=4236 
4 THEN PRINT "“C-64" 

38 IF VEC=59556 THEN PRINT "VIC-29" 

48 IF VEC=35158 THEN GRAPHIC CLR:PRINT "PLUS /4 & 1 
Gg 

58 IF VEC=17165 THEN LO=45:HI=46:GRAPHIC CLR:PRINT 
"728" 

60 SA=(PEEK(LO)+256*PEEK (HI) )+6:ADR=SA 

70 FOR J=@ TO 166:READ BYT:POKE ADR,BYT:ADR=ADR+1: 
CHK=CHK+BYT :NEXT 

88 IF CHK<>20578 THEN PRINT "*ERROR* CHECK TYPING 
{SPACE}IN DATA STATEMENTS": END 

98 FOR J=1 TO 5:READ RF, LF, HF: RS=SA+RF :HB=INT(RS/2 
56) s LB=RS-(256*HB) 

196 CHK=CHK+RF+LF+HF:POKE SA+LF,LB:POKE SA+HF,HB:N 
EXT 

1190 IF CHK<>22054 THEN PRINT "*ERROR* RELOAD PROGR 
AM AND CHECK FINAL LINE":END 

128 POKE SA+149,PEEK(772):POKE SA+15@,PEEK(773) 

138 IF VEC=17165 THEN POKE SA+14,22:POKE SA+18,23: 
POKESA+29 ,224:POKESA+139,224 

140 PRINT CHRS(147);CHRS(17);"PROOFREADER ACTIVE": 
SYS SA 

158 POKE HI,PEEK(HI)+1:POKE (PEEK(LO)+256* PEEK(HI) 
)-1,8:NEW 

160 DATA 120,169,73,141,4,3,169,3,141,5,3 

170 DATA 88,96,165,290,133,167,165,21,133,168,169 

188 DATA @,141,0,255,162,31,181,199,157,227,3 

198 DATA 2902,16,248,169,19,32,2190,255,169,18, 32 

208 DATA 210,255,160,0,132,1890,132,176,136,239,189 

218 DATA 200,185,0,2,240,46,201,34,298,8,/72 

220 DATA 165,176,73,255,133,176,194,72,2901,32,298 

230 DATA 7,165,176,208,3,104,208,226,1904,166,189 

248 DATA 24,165,167,121,9,2,133,167,165,168,195 

258 DATA @,133,168,202,208,239,240,202,165,167,69 

268 DATA 168,72,41,15,168,185,211,3,32,219,255 

2706 DATA 104,74,74,74,74,168,185,211,3,32,219 

289 DATA 255,162,31,189,227,3,149,199,2902,16,248 

298 DATA 169,146,32,210,255,76,86,137,65,66,67 

300 DATA 68,69,70,71,72,74,75,77,89,81,82,83,88 

318 DATA 13,2,7,167,31,32,151,116,117,151,128,129, 
167,136,137 
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Appendix D 
Screen Color Memory Table 
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40-Column Screen Color 
Codes 





The following are the color codes that can be POKEd directly 
into a color register on either the 64 or the 128. For example, 
to set the screen background color on the 64, you would type 


POKE 53281,x 


where x is the color value from the table below. 

With BASIC 7.0 on the 128, you don’t have to POKE 
color values into registers to set screen or character colors; you 
can use the COLOR statement instead. The color values used 
with the COLOR statement are slightly different from those 
listed below. You must add one to the value listed below to set 
a register to the indicated color. For example, to set the back- 
ground to blue with the COLOR statement, you would enter 
COLOR 0,7. The 0 tells BASIC which color register to change, 
and the 7 tells it to set that register to blue. For more infor- 
mation on the COLOR statement, see COMPUTE!’s 128 Pro- 
grammer’s Guide (COMPUTE! Books, 1985). 


Color Color Value 
Black 0 
White 1 
Red 2 
Cyan 3 
Purple 4 
Green 5 
Blue 6 
Yellow i 
Orange 8 
Brown 9 
Light red 10 
Dark gray 11 
Medium gray 12 
Light green 13 
Light blue 14 
Light gray 15 
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The most widely recognized character code is ASCII (Ameri- 
can Standard Code for Information Interchange). ASCII is a 
seven-bit code and thus can represent 2” (128) different char- 
acters. CP/M mode uses standard ASCII (although it does add 
special definitions for the additional characters 128-255). 

Most microcomputer telecommunication is also conducted 
in ASCII. Unfortunately, neither of the two character sets in 
128 or 64 mode follows the ASCII standard exactly, so unless 
you are communicating with another Commodore computer, 
you'll have to translate the characters you send into ASCII 
and translate those you receive back into Commodore charac- 
ter codes. 


Dec Hex Character Dec Hex Character 

0 00 NUL 25 19 EM 
1 O01 SOH 26 1A SUB 
2 02 STX 27 1B ESC 
3 03 ETX 28 1C FS 
4 04 EOT 29 1D GS 
5 05 ENQ 30 1E RS 
6 06 ACK 31 1F US 
7 07 BEL 32 20 space 
8 08 BS 33 «21 ! 
9 09 HT 34 22 = 

10 OA LF 35 23 +# 

11 OB VT 36 24 $ 

12 OC FF 37 25 % 

13. OD CR 38 26 & 

14 OE SO 39 27 / 

15 OF SI 40 28 ( 

16 10 DLE 41 29 ) 

17 21 DCl 42 2A " 

18 12 DC2 43 2B + 

19 13 DC3 44 2C : 

20 14 DC4 45 2D - 

21 15 NAK 46 2E 

22 16 SYN 47 2F / 

23 17 ETB 48 30 0 

24 18 CAN 49 31 1 
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Dec Hex Character Dec Hex Character = 
50 32 Z 89 59 Y 
51 33 3 90 5A Z | 
52 34 4 91 5B [ 
53 35 5 92 5C \ a 
54 36 6 93 5D ] 
55 . 37 7 94 5E . 
56 38 8 95 5F =. 
57 39 9 96 60 
58 3A 97 61 a 
59 3B : 98 62 b 
60 3C < 99 63 C 
61 3D = 100 64 d 
62 3E > 101 65 e 
63 3F td 102 66 f 
64 40 @ 103 67 g 
65 41 A 104 68 h 
66 42 B 105 69 1 
67 43 C 106 6A j 
68 44 D 107 6B k 
69 45 E 108 6C l 
70 46 F 109 6D m 
71 47 G 110 6E n 
72 48 H 111 6F oO 
73 49 I 112 70 Pp 
74 4A J 113 7/1 q 
75 4B K 114 72 r 
76 4C L 115 73 S 
77 4D M 116 74 t 
78 4E N 117. 75 u 
79 4F O 118 76 V 
80 50 P 119 77 Ww 
81 51 Q 120 78 x 
82 52 R 121 79 y 
83 53 S 122 7A Z 
84 54 T 123. 7B { 
85 55 U 124 7C | 
86 56 V 125 7D \ 
87 57 W 126 7E ~ 
88 58 X 127° -7F DEL 
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Notes 
1. Codes 0-31 are transmission control codes, and only a few 


are commonly used in microcomputer telecommunications. 
These include character 13, the carriage-return (RETURN) 
character, and character 27, the ESCape character (which 
is frequently used to indicate a command). Some non- 
Commodore computers require that RETURN be followed 
by character 10, the linefeed character. Many terminal pro- 
grams recognize character 19 as XOFF, a signal to halt 
transmission temporarily. Transmission resumes when char- 
acter 17, also known as XON, is received. File transfer pro- 
tocols such as XMODEM use some of the other control 
codes. 


. For character 94, Commodore uses the up-arrow (1) in place 


of the caret (°). 
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Appendix G 
Screen Codes 








There are 256 screen codes for each character set; codes 
128-255 are the reverse images of codes 0-127. To display 
any character in reverse video, simply add 128 to its screen 
code value. Thus, POKE 1024,1:POKE 1025,1+128 displays 
an A and a reverse A. 

The character ROM has a total of 153 different characters. 
In the uppercase/graphics set, the character patterns for codes 
32 and 96 are identical, as are those for 64 and 67, 66 and 93, 
101 and 116, and 103 and 106. 


Dec Hex  Uppercase/Graphics Set Lowercase/Uppercase Set 

0 00 @ @ 

1 01 A a 

2 02 B b 

3 03 C Cc 

4 04 D d 

5 05 E e 

6 06 F f 

7 07 G g 

8 08 H h 

9 09 I i 

10 OA J j 

11 OB K k 

12 0C L ] 

13 OD M m nn 
14 OE N n 

15 OF O 0 8 
16 10 Pp Pp P| 
17 11 Q q 

18 12 R r bs 
19 13 S S 

20 14 T t 7 
142 2 


Hex 
15 
16 
17 
18 
19 
1A 
1B 
1C 
1D 
1E 
1F 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 
34 
35 


ee Bee Se See 


fT 


nF WON KF O™ * 


APPENDIX G 


space 


u 


SS 40 IN NS St 


fT 


Nr WN KY O™ * 


Uppercase/Graphics Set Lowercase/Uppercase Set 
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Uppercase/Graphics Set Lowercase/Uppercase Set 


Hex 


Dec 


Oo Ke CO DN 


36 


54 
55 


37 


38 


56 
57 


39 
3A 
3B 
3C 
3D 
3E 
3F 
40 
41 


58 


59 
60 
61 


Awe[/ftm0AmH OTH YH SAZOKRCOKHMHHD DS 


62 


“(Ds PDD DSR ees aeZNLoe@ Te 


63 
64 
65 
66 











42 


43 
44 
45 
46 


67 


68 


69 


70 
71 


47 
48 


72 
73 
74 
79 
76 


49 


4A 
4B 
4C 
4D 
4E 
4F 
50 

51 


77 
78 
79 
80 
81 





52 


82 





\ i 





53 
54 


83 
84 


55 
56 


85 
86 
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Sx > NB eS 








Oe 
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_ Uppercase/Graphics Set Lowercase/Uppercase Set 


* 
Vr awaoa<<<_maUA WwW Ee 
Tin in nH nw ww Ww WH 
w 
Vnoamac°cwnrtno t in 
QDAwoemODDODAAAA A 


SHIFT-space 


60 


96 
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me RS Se SR ie 














ml Le ee ie PR Ree ML 








SAN Ot IN OR WOatmaUA WHaoaexANmMmt WN OR, 
Oo Oo OO OO O© OO OOOO Oo Oo Oo Oo nro Keo KReR eR eR b& 

CDOowmTF NM TiN OR WAA OFAN wm TM OO OW’ CHO OO 
BR Onwoqooooooqo0de0qQodoooqQodoenrwwrwwrwwwnt was 
(© WE © > © DE EE oo oe 
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Dec Hex  Uppercase/Graphics Set Lowercase/Uppercase Set 

















120 78 = _ 
121 79 = -_ 
122. 7A all wl 
123 7B ’ | 
124 7C LL. a 
125 7D al | aa 
126 JE alll alll 
127. -7F - 
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Commodore 64 and 128 
Keycodes 





The 128 keyboard is arranged electrically as a matrix of 11 col- 
umns X 8 rows of keys; for the Commodore 64 it’s arranged 
as 8 columns X 8 rows. Every 1/60 second, the computer 
scans the keyboard to see whether a key is pressed. If a key is 
pressed, the keyscan routine generates a value that corre- 
sponds to the key’s position in the matrix. (The formula is 
keycode = column * 8 + row, where column has a value from 
0 through 10, and row has a value from 0 through 7.) If no 
key is pressed, a value of 88 is generated. (The “’no key 
pressed”’ value for the 64 is 64.) This value is stored in loca- 
tion 212 (location 203 for the 64). Location 213 (location 197 
for the 64) will also hold the same value. The contents of this 
location can be used to determine which key is currently being 
pressed, as an alternative to using GET (or the Kernal GETIN 
routine in machine language). For example, these two lines 
have the the same effect—to pause the program until any key 
is pressed: 

100 GET K$:IF K$=”” THEN 100 

100 IF PEEK(212)=88 THEN 100 


The accompanying figure gives the keyscan codes for the 
128 keyboard. Notice that the figure shows no values for the 
left and right SHIFT keys, the Commodore key, CONTROL, 
and ALT. They are the keys that use the missing codes 15, 52, 
58, 61, and 80, respectively. These keys are detected later in 
the keyscan routine, and another location is used to record 
their status. In 128 mode the location used is 211; the cor- 
responding location for the 64 is 653. Here are the values 
found there: 


No shift key pressed 0 
SHIFT 1 
Commodore 2 
CONTROL 4 
ALT (128 mode only) 8 
CAPS LOCK (128 mode only) 16 
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Note that for this location the values are cumulative. If 
you press both SHIFT and CONTROL, the location will con- 
tain 1 + 4 = 5. Holding down SHIFT, Commodore, CON- 
TROL, and ALT together would result in a value of 15. 

The other “missing” keys are not part of the keyscan ma- 
trix. RESTORE is connected to the CIA 2 chip and acts by 
generating an NMI interrupt. The 40/80 column key is con- 
nected to the MMU chip and is read and acted upon only at 
power on or reset. The CAPS LOCK key is connected to bit 6 
of the 8502 chip’s built-in data port and thus is read via loca- 
tion 1. PRINT (PEEK(1) AND 64) will show its status (0 = 
down, 64 = up). The SHIFT LOCK key is not scanned; it’s 
merely a switch that has the effect of holding down the SHIFT 
key. 
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Index 





@ See at sign 

£ See British pound sign 

# See number sign 

ASCII (American Standard Code for 
Information Interchange) 139 
codes 139-40 
values 32 

“ASCII/POKE Printer’ program listing 
34 

at sign 29 

“Auto Line Numbering” program 
listing 36 

“BASIC Line Extender” program listing 
19 

blick locations (table) 46 

“Blick—64 Version” program listing 47 

“Blick—128 Version’ program listing 
47 

“Blink Mode—Demo 1” program 
listing 61-62 

“Blink Mode—Demo 2” program 
listing 63 

“Blink Mode” program listing 60-61 

block availability map (BAM) 118 

British pound sign 17 

cassette buffer 110, 112 

colon 17 

color swap locations (table) 78 

“Color Swap” program listing 79-81 

Commodore 64 Programmer's Reference 
Guide 127 

Commodore 64 and 128 keycodes 149 

COMPUTE!’s 128 Programmer's Guide 
138 

“Controlled Keyboard Input” program 
listing 51-53 

custom character set 72 

DATA statements 10 

disk operating system (DOS) 118 

“Disk Title Changer’ program listing 
121 

extension 17 

40-column screen color codes 138 

hardware interrupt (IRQ) vector 124 

“Help Screens—64 Version’”’ program 
listing 41-42 

“Help Screens—128 Version” program 
listing 42-44 

high-resolution graphics 89 


“Hi-Res Screen Dump” program listing 
91-92 

“Input Windows Demo” program 
listing 53 

“Instant Keywords” program listing 8 

interrupt wedge 56 

jiffy 82 

jiffy clock 82 

joystick 104, 114 
directions (figure) 116 

‘Keyboard to Joystick Converter’ 
program listing 106-07 

key combinations (table) 7 

keywords 6-8 

“Line Count—64 Version” program 
listing 11-12 

“Line Count—128 Version” program 
listing 12-13 

line number 35 

“List Pager’ program listing 113 

lockup bug 46 

number sign 111 

“Numeric Keypad” program listing 128 

paging 109 

POKE values 32 

“Printmaker’’ program listing 65-66 

Programming the 64 115 

“Quick Character Transfer” program 
listing 73-74 

“QuickScan” program listing 71 

quotation marks 17, 111 

RAM disk 101 

ROM, version 2 46 

screen codes 142-46 

screen color memory (table) 137 

“Screen Customizer” program listing 
69 

“Screen Headliner’ program listing 
96-97 

screen location (table) 136 

“Searchlight” program listing 22 

semicolon 49 

“64/128 Program Mis-Matcher” 
program listing 4-5 

“64 RAM Disk” program listing 103 

“Slowpoke”’ program listing 88 

“Sound Off” program listing 15 

“Step Lister” program listing 30-31 

“Stop and Go” program listing 125 
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string arrays 25 

“String Search—BASIC Loader” 
program listing 27 

“String Search—Demo Program’”’ 
program listing 28 

syntax error 20 

“Tape Program Rescue” program listing 
123 

“The Automatic Proofreader’ 67 
program listing 135 

“Time Clock’ program listing 83-84 

time-of-day (TOD) clock 83 
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tokens 6, 29 

TRAP statements 14 

“Triple 64” program listing 24 

typing in programs 131-32 

USR function 54-55, 112-15 

“USR Joystick Reader” program listing 
116 

vector 86 

video blink mode 54 

wedge 29-30, 46, 112 

window 48 

“Worm Demo” program listing 107-08 





To order your copy of COMPUTE!’s Commodore 64/128 
Power BASIC Disk, call our toll-free US order line: 1-800-346- 
6767 (in NY 212-887-8525) or send your prepaid order to: 


COMPUTE!’s Commodore 64/128 Power BASIC Disk 
COMPUTE! Publications 

P.O. Box 5038 

F.D.R. Station 

New York, NY 10150 


All orders must be prepaid (check, charge, or money order). NC 
residents add 5% sales tax. NY residents add 8.25% sales tax. 


send _____ copies of COMPUTE!’s Commodore 64/128 Power 
BASIC Disk at $12.95 per copy. (998BDSkK) 


Subtotal $ 

Shipping and Handling: $2.00/disk $ 
Sales tax (if applicable) $ 

Total payment enclosed $ 


oO Payment enclosed 
oO Charge o Visa o MasterCard 0 American Express 


Acct. No, __ssssSsFsFsFssFsFssSS—FeFeFsSSSSS—COFFFFssSSS—CFFssSSSSSCSEEX?. Date ____ 
(Required) 

Name 

Adaress 

City __Ci‘(‘C;UUCOCSHaTOE CZ 


Please allow 4-5 weeks for delivery. 


153 


Power BASIC 
for the Commodore 64 and 128 


Here bo tremendously useful selection of utilities for the 
Commodore 64. and 128 home computers. Cammodore 
Ad/128 Power BASIC provides you with an assortment of 32 
routines That you'll use again and again To speed Up pro- 
Qrorining tasks ond fo increase your programming Ser: 
You'll find convenient solutions to problanns progr 
face every doy, and wil be able to devote more of your 
lime to your own projects. 

Here ore just a few of he programs you'll find inside: 


« ‘GluickScan” is great for keeping your place while you're 
sconning a long program isting. i sets wo a bor that auio- 
moves up and Gown The screen, highlighting 
screen lines to mark your place, 

« “Numeric Keypad’ turns your standard Cornmmodore 64 key- 
board into a numernc keypad for fast and easy number 
entry. 

«Keyboard to Joystick Converter” allows you to usa o joy- 
stick with programs that don't provide for joystick contro. 

«Dek Tite Chonger’ renames disks quickly and easily. 

» “Step and Go" provides a pause button that’s very useful 
when you want to halt a program fernporariy. 

« "Program Mis-Matcher” compares two BASIC programs. ff's 
convenient for examining Giferen? versions of the same 
erograrn. 


And these are just the Beginning, With “The Automatic 
Proofreader To help you type in listings comecty, youll be 
Gole to pul These routines To work i no time. i addition, ap 
Dencices give supolamentary information about screen color 
memory, screen color cades, ASC! codes. and much more. 
Commodore 44/124 Power 8490 will open uo new possibll- 
lies ond give you greater control over your computer than 
ever before, 











The programs inciuded dn this book are dveileble on 8 companion disk 





See the coupan jn the beck for dedals, 


BN 0-87 455-4099-8 
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